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ls ABSTRACT 


The Family-of-8 ASR33/35 Teletype Tests, Part 2 is the second part of a 2 part package used 
to test the ASR33 or ASR35 Teletype when attached to a Family-of-8 system. 

Part 2 contains nine selectable programs numbered from 0 to 10 (octal). The programs are 
selected by means of Switch Register (SR). 


The available programs are: 








PRGO Printer Test 

PRG] Punch Test 

PRG2 Keyboard Test 

PRG3 Combined Reader, Printer, Punch Test 

PRG4 Printer Exerciser. Prinis lines of characters stored in LOC 0021 and 0022. 
No stalls. 

PRGS Same as PRG4, but stalls between characters. 

PRG6 Punch Exerciser. Punches and read checks data blocks of data stored in 
LOC 0021 and 0022. No stalls. 

PRG7 Same as PRG6, but random stalls between characters punched. 

PRG 10 Punch Exerciser. Punches and read checks blocks of Binary Count pattern. 


Random stalls between characters punched. 


2. REQUIREMENTS 
251 Equipment 





a. Standard PDP-8/S, PDP-8, or PDP-8/1 with 
b. ASR33 or ASR35 Teletype. 


ee Storage 


Locations 0000 through 5173 are used. 


268 Preliminary Programs 


Family-of-8 ASR33/35 Teletype Tests, Part 1. PRGO, PRGI, and PRG2 must have been 


run successfully. 
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Oh LOADING PROCEDURES 


Co 


Method 


The Binary Loader is used to load the program. 


4, STARTING PROCEDURES (PRGO) 


4.1] Control Switch Settings (PRGO) 


SRO 
SRI 
SR2 


Halt at end of routine. Routine number in AC. 
Select routine whose number is set in SR6 through SR11. 


Loop program. 


SR6 through SR11 Routine number to be selected. 


4,2 Starting Addresses (PRGO) 


This program starts at LOC 0200. C 


4.3 Program and/or Operator Action (PRGO) 


ao a2 


2. OO 


® 


fi 


g. 
CONTINUE. 


h. 
ending, by SR 


Insure Teletype is on-line. 

Turn off Teletype reader and punch. 

Load address 0200. 

Set SR to 0000. 

Press START. 

Program halts at LOC 0232 to permit setting of options. 

Select desired options, if any, in SR. For normal run SR should be 0000. Press 


Program is executed and halts at program end halt at LOC 0274, unless prevented from 


options. 


NOTE 


The resulting printouts during execution of PRGO must be 
verified visually by user to determine correct teleprinter 
operation. Refer to Section 9. Program description. 














See 
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4.A 


A.3A 


STARTING PROCEDURES (PRG1) 


Control Switch Settings (PRG 1) 


SRO Halt at end of routine. Routine number in AC. 

SR1 Select routine whose number is set in SR6 through SR11. 
SR2 Loop Program. 

SR5=1 Halt on error. Bad character in AC. 

SR5=0 Halt at end of data block. Error count in AC. 

SR6 through SR11 Routine number to be selected. 


Starting Addresses (PRG1) 


This program starts at LOC 0200. 


Program and/or Operator Action (PRG1) 


a. 


b. 


on Teletype punch. 


With Teletype off-line, punch a section of blank leader about 6 in. long. Return 


Teletype to on-line position. 


Cc. 
or 
e. 


f. 


h. 
ie 


Load leader on reader, leaving very little slack between punch and reader. 

Turn on reader. 

Load address 0200. 

Set SR to 0001. 

Press START. 

Program halts at LOC 0232 to permit setting of options. 

Set desired options, if any, in SR. For normal run, set SR to 0000. Press CONTINUE. 


Program is executed and halts at program end halt at LOC 0274, unless prevented from 


ending by SR options, or if errors occur. 
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4.B STARTING PROCEDURES (PRG2) 


4.1B Control Switch Settings (PRG2) 


SRO Halt at end of routine. Routine number in AC. 

SRI Select routine whose number is set in SR6 through SR11. 
SR2 Loop Program. 

SR6 through SR11 Routine number to be selected. 


A.2B Starting Addresses (PRG2) 


This program starts at LOC 0200. 


4.3B Program and/or Operator Action (PRG2) 


a. Insure Teletype is on-line. 

b. Turn off Teletype reader and punch. 

Load address 0200. C 
d. Set SR to 0002. 

e. Press START. 


re) 


f. Program title is printed and program halts at LOC 0232 to permit setting of options. 
g. Set desired options, if any, in SR. For normal run, set SR to 0000. Press CONTINUE. 
h. Follow program instructions. 


i. When last routine is completed, and provided that no SR options prevent it, the program 
stops at program end halt at LOC 0274, 


NOTE 


Correct operation of the keyboard is determined by user, 
by checking that the printed characters match with the | 
characters keyed. 


C 
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4.C STARTING PROCEDURES (PRG3) 


4.1C Control Switch Settings (PRG3) 


SRO Halt at end of routine. Routine number in AC. 

SRI Select routine whose number is set in SR6 through SR11. 

SR2 Loop program. 

SR5=1 Halt on error. Bad character in AC. 

SR5=0 Halt at end of data block if errors occurred. Error count in AC. 
SR6 through SR11 Routine number to be selected. 


4,2C Starting Addresses (PRG3) 


This program starts at LOC 0200. 


4.3C Program and/or Operator Action (PRG3) 


a. 


oe 


Teletype to on- 


Cc. 
d. 
e. 
F 
g. 
h. 
is 


Turn on Teletype punch. 


With Teletype off-line, punch a section of blank leader about 6 in. long. Return 
line position. 


Load leader on reader, leaving very little slack between punch and reader. 
Turn on reader, 

Load address 0200. 

Set SR to 0003. 

Press START. 


Program halts at LOC 0232 to permit setting of options. 


Set desired options, if any, in SR. For normal run, set SR to 0000. Press CONTINUE. 


Program is executed and halts at program end halt at LOC 0274, unless prevented from 


ending, by SR options, or if errors occur. 
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4.D STARTING PROCEDURES (PRG4 and PRGS) 


4.1D Control Switch Settings (PRG4 and PRG5) 


None 


4,2D Starting Addresses (PRG4 and PRG5) 


Both programs are started at LOC 0200. 


4.3D Program and/or Operator Action (PRG4 and PRG5) 


a. Insure Teletype is on-line. 
b. Turn off Teletype reader and punch. 
Deposit in LOC 0021 and 0022 the 8-bit codes for characters to be printed. 


d. For PRG5, deposit in LOC 0023, the desired stall count in 2's complement form. A 
count of ~1 gives a 1 ms stall, etc. 


e. Load address 0200. 


oO 
e 


os 


f. Set SR to 0004, or 0005. 
g. Press START. 
h. The program runs continuously, printing lines with characters stored in LOC 0021 and 


0021. 
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4.E STARTING PROCEDURES (PRG6, PRG7, and PRG1O) 


4.\E Control Switch Settings (PRG6, PRG7, and PRG10) 


SR5=1 Halt on error. Bad character in AC. 
SR5=0 Halt at end of data block if errors occurred. Error count in AC. 
4.25 Starting Addresses (PRG6, PRG7, and PRG1O) 


These programs start at LOC 0200. 


A.3E Program and/or Operator Action (PRG6, PRG7, and PRG10) 


a. Turn on Teletype punch. 


b. With Teletype off-line, punch a section of blank leader about 6 in. long. Return 
Teletype to on-line position. 


c. Load leader on reader, leaving very little slack between punch and reader. 
d. Turn on reader. 


e. For PRG6é and PRG7, deposit in LOC 0021 and 0022 the 8-bit codes for characters to 


f. Load address 0200. 
Set SR to 0006, 0007, or 0010. 
h. Press START. 


i. The program runs continuously, unless errors occur. 
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6.1 


OPERATING PROCEDURE 


Program and/or Operator Action 


Normal Halts 


LOC 0232 


LOC 0274 


LOC 0320 


ERRORS 


LOC 0177 


LOC 0255 


LOC 1137 


LOC 1160 


LOC 1343 


LOC 1346 


LOC 1356 


RESTRICTIONS 


SR SET halt. Occurs to permit setting of desired options. Press 
CONTINUE. (PRGO, PRG1, PRG2, PRG3). 


Program end halt. Occurs if no “loop program" option is set. Set de- 
sired options and press CONTINUE. If no options are set, this halt 
reoccurs. (PRGO, PRGI, PRG2, PRG3). 


Routine end halt. Occurs at end of routine if SRO= |. To proceed, 


press CONTINUE. (PRGO, PRGI, PRG2, PRG3). 


Error Halts and Description 


Incorrect program number selected. Set SR to correct program number C 
and press CONTINUE. (All programs). 


Nonexistent routine selected. Set correct routine number in SR6 through 


SRI1 and press CONTINUE. (PRGO, PRGI, PRG2, PRG3). 


Sync error halt. Sync reader subroutine has not found syne character 
within 145 characters. Position tape in reader so that sync character 
(rubout) is within 145 characters from read station, and press CONTINUE. 
(PRG1, PRG3, PRG6, PRG7 and PRG10). 


Unexpected Interrupt. A non~Teletype device has caused interrupt. 
Turn off device, and press CONTINUE. (PRGI, PRG3, PRG6, PRG7, 
and PRG10). 


Read Check error A. Bad character in AC. Press CONTINUE. (SR5 


must be on). 


Read check error B. Follow up halt. Correct character in AC. To pro- 


ceed, press CONTINUE. (PRGI, PRG3, PRG6, PRG7, PRGIO). 


Block errors halt. Number of errors in AC. To proceed press CONTIN- 
UE. (SR5 must be off), (PRGI, PRG3, PRG6, PRG7, PRGIO). 





Starting Restrictions 


All programs must be started at LOC 0200. C 


ee ee eae 








Ta Operating Restrictions 
PRGO and PRG1 must precede execution of PRG3. PRGO must precede execution of PRG2. 


8. MISCELLANEOUS 

8.] Execution Time 
PRGO execution time: 15 minutes 
PRG1 execution time: 19 minutes 
PRG2 execution time: User dependent 
PRG3 execution time: 37 minutes 


PRG4 through PRG1O are continuous running programs. 





7: PROGRAM DESCRIPTIONS 


The Family-of~8 ASR33/35 Teletype Tests Part 2, consists of 9 programs numbered from 


0 to 10 (octal). 


7a PRGO = Printer Test 
This program contains 3] routines numbered from 0 to 36 (octal). 


RTNO Carriage return test, Checks ability of carriage return to print position | 
from all other print positions. No printing should occur in any print po- 
sition other than position 1. 


RTN1 Right margin test. This test shows when the right margin is not correctly 
adjusted. The test prints 14 groups of ---~- I followed by characters - I -. 
A correctly adjusted margin will give the following printout: 





ee eer (mera eee eee) (eens ere (meena, Camere (eens eres (rere ees (ees ar | 


The I's are printed to facilitate counting print positions. 


RTN2 Space Test. The test prints / in alternate positions of the line. After a 
double carriage return it scapes to the blank positions and prints a left 
slant slasn. A double carriage return is issued after printing each left 
slant slash. 


RTN3 Line Feed Test. The test prints a left slant slash followed by a line feed, 
followed by a 250 ms delay until 72 slashes have been printed. The re- 
sult should appear to be a left slanted line from position 1 to 72. Verti- 
cal spacing variations should be apparent if adjustment is required. 


RTN4 Types line of characters ABC, 
Cc RTN5 Types line of characters DEF. 











RTN6 

RTN7Z 

RTN1O 
RTN11 
RTN12 
RTNI3 
RTN14 
RTNIS 
RTN16 
RTNIZ 
RTN20 
RTN21 
RTN22 
RTN23 
RTN24 
RTN25 
RTN26 
RTN27 
RTN30 
RTN31 
RTN32 


RTN33 
RTN34 


RTN35 
RTN36 


© 


Types line of characters GHI. 
Types line of characters JKL. 

Types line of characters MNO. 

Types line of characters PQR. 

Types line of characters STU. 

Types line of characters VWX. 

Types line of characters YZO. 

Types line of characters 123 

Types line of characters A56 

Types line of characters 739 

Types line of characters pd 

Types line of characters SLB 

Types line of characters ™ ) 

Types line of characters et 

Types line of characters a7 

Types line of characters ee C 
Types line of characters = 38 

Types line of characters wE\ 

Types line of characters ae 


Types line of all characters 


Types line of all characters. Fixed delay between characters ina line. 
Delay is determined at random. 


Types six lines of ASR33 WORST CASE PATTERN. 
Types six lines of ASR33 WORST CASE PATTERN. 


Fixed delay between characters ina line. Delay is determined at 
random. 


The ASR33 WORST CASE PATTERN consists of characters “<W/W-~ 
Types six lines of ASR35 WORST CASE PATTERN. 


Types six lines of ASR35 WORST CASE PATTERN. 
Fixed delay between character in a line. Delay is determined at 
random, 


a 
The ASR35 WORST CASE PATTERN consists of characters [ ?C ?[ 
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9.2 PRG1 - Punch Test 


This program contains 15 routines numbered from 0 to 16 (octal). The test sequence used 


by the routines is: 


a. Set up data block 
b. Punch leader 
c. Punch syne character (Rubout) 
d. Punch data block 
e. Sync the reader 
f. Read data block 
Punch trailer 


Wait for reader to complete reading of data block before going to next routine. 


RTNO Punch and read check block of all Os. 
RTN] Punch and read check block of channel 1. 
RTN2 Punch and read check block of channel 2. 
7 RTN3 Punch and read check block of channel 3. 

Cc RTN4 Punch and read check block of channel 4. 
RTNS Punch and read check block of channel 5. 
RTN6 Punch and read check block of channel 6. 
RTN7 Punch and read check block of channel 7. 
RTN10 Punch and read check block of channel 8. 
RTNI1 Punch and read check block of sliding | pattern. 
RTN12 Punch and read check block of sliding 0 pattern. 
RTNI3 Punch and read check block of 1s and Qs pattern. 
RTN14 Same as RTN13, but random delay between characters punched. 
RTINI5 Punch and read check block of binary count pattern. 
RTN16 Same as RTN15, but random delay between characters punched. 

9.3 PRG2 - Keyboard Test 


This program contains 3 routines numbered from 0 to 2. 


RTNO Checks that KSF command skips when flag =1. Test is done 1000 times. 


RTN1 Echo Test. Any characters read from keyboard are typed. Correct opera- 
tion verification is done visually by user. Reading a rubout character 
ends the test. 





. RTN2 Octal equivalence test. The octal equivalent of any characters keyed is 
es typed. Reading a rubout ends the test. 


1 











ee PRG3 - Combined Reader, Printer, Punch Test 


This program contains 27 routines numbered from 0 to 32 (octal). All! routines use the 


following test sequence: 


a. Fill core block with data to be punched/prinied. 

b. Punch leader. 

c. Punch sync character. 

d. Punch data block (no delay between characters). 

e. Sync the reader. 

f. Read/Check data block (Random delay between characters). 
g. Punch data block (Random delay between characters). 

h. Read data block (no delay between characters). 


i. Punch trailer. 
j- Wait for reader to complete reading data block. 


k. End of test sequence. 








RTNO Punch/Print and read check block of ABC 
RTN1 Punch/Print and read check block of DEF 
RTN2 Punch/Print and read check block of GHI 
RTN3 Punch/Print and read check block of JKL 
RTN4 Punch/Print and read check block of MNO 
RTN5 Punch/Print and read check block of PQR 
RTN6 Punch/Print and read check block of STU 
RTN7 Punch/Print and read check block of VWX 
RTN10 Punch/Print and read check block of YZ0 
RTN11 Punch/Print and read check block of 123 
RTN12 Punch/Print and read check block of 456 
RTN13 Punch/Print and read check block of 789 
RTN14 Punch/Print and read check block of | "# 
RTN15 Punch/Print and read check block of $%& 
RTNI6 Punch/Print and read check block of '(). 
RTN17 Punch/Print and read check block of *+, 
RTN20 Punch/Print and read check block of - . / 
RTN21 Punch/Print and read check block of : ; < 
RTN22 Punch/Print and read check block of => ? 
RTN23 Punch/Print and read check block of @[ \ 

















RTN24 Punch/Print and read check block of ] t < 

RTN25 Punch/Print and read check block of all printable characters. 

RTN26 Punch/Print and read check block of ASR33 Printer worst case 
pattern (4 -«W/ 

RTN27 Punch/Print and read check block of ASR33 Printer worst case 
pattern with interspersed blanks. 

RTN30 Punch/Print and read check block of ASR35 Printer worst case 
pattern. (¥[ ?C) 

RTN31 Punch/Print and read check block of ASR35 Printer worst case 
pattern with interspersed blanks. 

RTN32 Punch/Print and read check blocks of space, rubout (1s and 0s). 

os5 PRG4 - Printer Exerciser 


Prints lines with data stored in LOC 0021 and 0022, no stalls. 





9.6 PRG5 - Printer Exerciser 


Prints lines with data stored in LOC 0021 and 0022. Fixed delay between characters. 


( ; Delay is determined at random. 
9.7 PRG6, PRG7, and PRG10 Punch Exerciser 


PRG6 punches and read checks data blocks with data stored in LOC 0021 and 0022. No 
stalls. 

PRG7 is the same as PRG6, but random stalls between characters punched. 

PRG10O punches and read checks blocks of Binary Count pattern. Random stalls between 
characters. 


The three exercisers use the following sequence: 


a. Set up data block 

b. Punch leader 

c. Punch syne character (rubout) 
d. Punch data block 

e. Sync the reader 


f. Read data block 
Punch data block 
h. Back to step f. 
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/FAMILY@@P 5 ASRSG/SD TELETYPE TESTS o PART 2 
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/PRGBMMPRINTER TEST 

/PRGLPUNCR TEST 

/PRG2rKELYOVARY Tesi 

/PRGS@CUMBINED READER, PRINTER, PUNCH TEST, 

/PRG4=PRINTER EXERCISER, PRINTS LINES OF CHARACTERS STORED IN LOC #021 AND OB22, 

/ NO STALLS, 

/PRGSRPRINTER EXERCISER, PRINTS LINES OF CHARACTERS STORED IN LOC #221 AND @822. STALLS 
i BETWEEN CHARACTERS, 

/PRGO=PUNCH EXERCISER, PUNCHES AND READ CHECKS DATA BLOCKS OF DATA STYRED IN LOC wel 
/ AND @@22, NO STALLS 

JPRG7" SAMt AS PRG6, BUT RANDOM STALLS BETWEEN CHARACTERS PUNCHED, 

/PRGLO=PUNUH EXERCISER, PUNCHES ANU READ CHECKS BLOCKS OF BINARY COUNT PATTERN, 

/ RANQOM STALLS 

/ 

/STARIING AUUDRESS: 6200 


/ 

/SR OPTIONS 

/ 

/SROReMALT AT END OF ROUTINES ROUTINE NUMBER IN AC, 
/SRL=-SELEGCT ROUTINE WHERE NUMBER JS SET IN SRO TO li, 
/SR2eL00P PROGRAM 

/SROZLSHALT ON ERROR, BAD CHARACTER IN AC, 

/SR520" HALT AT END OF DATA BLOCK, ERROR COUNT IN AC 
/Sr6 TO SR1i1 2 KOUTINE NUMBER TO BE SELECTEU, 
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g201 2926 Pfu PREMSK 
P2022 ivel TAU FRGLIM 
203 7240 SMA SZA SVALID PROGRAM NUMUERT 
G24 5477 UM? 477 sNOe GO TO LOC 477 
gens 7684 Lés /READ SR 
22vG bee AW PRGMSK 
Q2e7 $022 UCR FRERUM /SAVE PROGRAM NUMBER 
G218 1%29 TAL PRGNUM AUVEVELOPR PROGRAM 
0211 1038 TAU PSW {START ADDRESS AND 
@212 $118 WC& TEMP 
213 2916 TAU [| TEMP 
2214 seg UCA PRGAUDR 
215 785” IDs CLA CLL CMA RAR /LETERMINE CRU ID, 
216 774% SPA CLA ,]5 IT POPESETS 
C217 2222 JM td /NOy IT IS & POPESS: 
Q228 ZUse TAW KP@ /YES, IT US POPEes3I 
O22, 7918 SK 
g222 1036 TAU KPBS 
223 Sede UGA MILd /SET DELAY CONSTANT 
g224 4455 JMS J UMOVE 
@225 wego 3 
Q226 dA Zi 
Q227 7776 a, 
Y2$0 5651 JMP J ,#l /g0 TO SELECTED FROGRAM, 
C231 KweQv PRGADK, 
2252 7€@e SrRStTe MET CLA 
A253 720" GETRDY, LULA 
234 ibeu TAW KSTART /GET ADORESS QF 1sT ROUTINE 
235 $K36 WGA NXTST /STORE AT NXTST 
g246 4276 JMs FQRWD 
0267 76084 LAD /READ SR 
24) 7004 NAL, 
244 726" SMA /ROUTINE SELECT? 
242 3435 JMP |] CURTST JNO+ START WITH CURRENT ROUTINE» 
0243 7684 LAS /YtES. READ SR 
$244 OW3/ ANU TSTMSK /GET ROUTINE NUMBER, 
G2465 741 VIA /é2's COMPLEMENT JT, 
246 1034 TAU RTNNO JADU CURRENT ROUTING NUMBER, 
W247 7650 SNA CLA /1S IT THIS ROUTINE? 
298 5432 JMP | CURTST /YES, GO OO ITs 
2254 16s6 TAU NXToOT /NOe JS THIS TRE LAST ROUTING? 
geo2 7001 LAU 
g203 7640 sZA CLA 
werd 5236 JMP LLTRUY+3 JNO 
3295 “74¥e INCRTN, ALT /YES, INCORRECT ROUTINE NUMBER 





E296 32$0 JMP GETRUY 


ql 

¥ 
Ps 
a 
ig 

q 
& 
fb 
& 
vs 
» 
# 
a 
| 
4 
: 
4 
q 
1 

















r 


Coo d & & 
Cal IN) 


7h WD PR RON, OG 


MS 
~ 
Sy 


NS GH GK. tL OE. 


m& 
Po 
™~N 


g272 
w273 
£2274 
27> 
L276 
ge77 
S06 
2S04 
vSde2 
6303 
“304 
2305 
2306 
05287 
S13 
“w Si4 
usie 
$13 
£514 
34? 
£$46 
£3347 
L352 
é $2), 


we 


“Ma OO AS) 








CRAINN, 


PrkNUe 


br JRKWU > 


SrAl ts 


JMo 
AD 
VEG 
Seu 
JMEr 
PAu 
LAL 
DLA 
JMP 
LA 
aie * 
SPA 
JM¥ 
ALT 
iia 
“a 

LULA 
TAY 
ULA 
Lor 
1AW 
UA 
Last 
| AU 
WA 
TAU 
WUA 
JMPr 
v4) 

LA 
SMA 
JMP 
J AU 
a | 
wMr 
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SHALT 


Ui, a 
UE TRUY 
NXTST 


CLA 
vETRUY +3 


CLA 
GETRUY 


CHAINN 


CLL 

] NXTST 
RTNNO 
NXTOT 
NXTOT 
TEMP 
NAXTSOT 
NXTOT 
CURTST 
] TEMP 
NXTOST 

] FURWD 


CLA 
] SHALT 
RTNNO 


] SrALT 





JNALT? (SRe) GO CreuKk, 
JREAD SR 


JROUTINE SELECT?(SRI) 
/YEO, 


JLAST ROUTING? 
/NOw SET UP TO DO NeyT ROUTINE 


/LQUP PRUGRAM? (SR2) 

/JYEd, GO REPEAT PROVRAM, 
/PRUGRAM END HALT 

/00 CHECK FOR OPTIONS AGAIN, 


JGET AND STORE NEXT ROUTINE 
/WUMBELR, 


SET CURRENT 
JROUTINE NUMBER 


JET CURRENT 
ROUTINE AUDORESS. 
SET NEXT 
/ROUTINE AUYDRESS: 
/exIit, 


/READ SRe 

/JHALT? (OR) 

/NO. EXIT 

/JvET CURRENT RTN NUMBER 
/ZUNCONDI TIONAL HALT, 
“eXIT, 


= 
x oo 
S > 





6/26/68 14346,28 PAGE 7 
Ys22 WYCe STCTR:» ) 
03235 7ewvu LLA 
$24 U72¢ Taw | STCTR JET CTR AUDRESS 
v$25 $115 JGa TEMP /STORE AT TEMP, 
0326 zse2c Loz STCTR 
¥3$27 i1/2e TAU | STCTR /GET COUNT AND STORE 
2358 $215 WUA | TENP /PER CCTEMP) 
0331 252e 1Sé@ STCTR 
@$s2 dD72¢ JMP |] STCTR /eXIiT, 
0353 VOQ0 ULYMS» 0 
9334 73500 VLA CLL 
335 1029 TAU DELAYM JGET MILLYSECOND COUNT 
2336 Sv4¥ WGA MSCTR /STURE AT MSCTR 
0357 5740 JMP I] yt] 
0342 Ws4) 17h 
03414 164¢ TAU MILI /JGET 2MS CONSTANT 
0342 $@44 UVUA MILCTR /STURE JIN MILCTR 
2$43 2041 lot MILCUTR JUELAYED 1 MILLISECOND? 
2344 5548 JMP ,wd /NO>s 
0345 2640 }o¢ MoCTR /YES, DONE DELAYING? 
0$46 DSS/ JMrP 7 /NOe GO DELAY ANOTHER MILSEC, 
B347 d730 JMe J DLYMS 7eEXITs 
Gs00G WUE ULCONTs # 
@3o1 4447 JMs I] RANDNO /GENERATE RANDOM NUMBER 
g$52 012 ANU OLYMSK JMASK OUT UNDESIRED BITS 
Z5o5 7450 SNA /JRESULT ZERO? 
0354 5551 JMP ULCNTod JYES, GET ANOTHER NUMBER 
0$55 7041 UMA JAC JNOy @'9S COMPLEMENT IT 
9356 $25 wOA ORLAYM JSTORE AT DELAYM 
b357 5750 yMP J OLUNT sey iT 
03608 Wo" CRLF » 0 
gsot, 720" Vie A 
2362 1760 TAW | CRLF 
0803 $879 ULA URCTR 
$64 2560 lse- CRU? 
£305 4450 UM>a |] XTYPST 
2366 WS7¢e +4 
3367 287? jot CRUTR 
2378 53869 JMP wd 
0S74 9760 UMP J] CRLF 
e372 wuL> 01> 
0$73 OUte OLS 
6374 del CYOd 
0375 Bee CRUTR»e é 




















240 
g4od 
wide 
0408 
wae 
04285 
2406 
2407 
v410 
e444 
0412 
0413 
2414 
0415 
C446 
@417 
0420 
uae] 
0922 
£423 
g4e4q 
0425 
£426 
2427 
£450 
e491 
v45e2 
0433 
0454 
£435 
£456 
0557 
B447 
vee 
waa? 
4 643 


yIgu 


ee gd 
7éQu 
124e 
1e2/ 
7040 
oe Be 
neue 
gee/ 
12$u 
7104 
7430 
7001 
523 
i23$e 
152/ 
$627 
i24eo 
7010 
162/ 
2e2/ 
3245 
1c40 
5620 
e44e 
6248 
W43e 
6248 
se1u 
76> 
54932 
2ig/ 
7654 
4$21 
4870 
7356 
Cd yu 


*, py Oy ae 


/RANDOM NUMGER GENERATOR SUBROUTINE 


RANGENs 


RANTAUs 


RANUEX,» 
RANCON: 
RANTBLs 


RaNTNus 
RANSAV: 


b 
VLA 
TAU 
[Au 
StéA 
JMPr 
TAU 
wWhA 
TAU 
Uh. be 
Sel 
JAL 
WOA 
TAU 
TAU 
WLa 
TAU 
RAK 
TAU 
132 
WA 
TAY 
JM 
~ANT 
02465 
ee) 
09495 
Sdl1e 
€/69 
249S< 
éla/ 
4624 
odl 
1/76 


G 


e 
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RANTND 
RANUE X 
CLA 

RANTAQ 
RANTBL 
RANUEX 
RANUCON 
RAL 


RANUON 
RANCON 
I RANDEX 
] RANDEX 
RANSAY 


] RANDEX 
RANUEX 
RANDAYV 
RANOAY 

1 RANGEN 
NO 





PaGk & 





sctivnllienematiicnmen Snsited, taboo slit tes Mab Ui? aR ie Phi RT 


2444 
Y445 
0446 
“447 
Y45B 
G451 
0452 
0453 
gard 
0455 
B4ds 
0457 
0460 
C4ot 
0462 
2463 
2464 
0465 
0466 
0467 
0470 
Z474 
B472 
0473 
Z474 
0475 
0476 
0477 
0500 
O04 
05282 
2523 
woe4 
2525 
0506 
Yoe7 
0510 
O11 
512 
0213 
g>14 
0245 
P26 
Cou? 
uo28 
Goe4 
C222 
Z2¢5 
yoed 
B>225 





woe 
7260 
4644 
Side 
o456¢ 
2244 
1958 
7Ot¢ 
7bie¢ 
7eo1L¢ 
4265 
1250 
4265 
2150 
525¢ 
CEQ 
W155 
$151 
easy 4 
7640 
5beu 
1151 
74950 
9276 
4$4/ 
5669 
21id5¢ 
5668 
Sid¢ 
Lid 
744 
7450 
5274 
7UY1 
7650 
5644 
Z15/ 
S$2i 
aed 
4631/ 
116% 
oS21 
5069 
ULE 
cord 
721% 
1152 
1156 
4454 


b74/ 


6/26/68 14:46,19 PACK 9 


/TYPE CHARAUTER STRING SUBRUUTINE 


TYPSTb». 


TSCd, 


T5C2, 


TYPAT>s 


TYPSP, 


PRINT, 


SwilTCn, 


0 

LULA 
TAU 
WA 
WUA 
loz 
Tau 
RTR 
m TK 
KT K 
JMS 
TAU 
JM> 
loz 
JMp 
0 

ANU 
UA 
TAW 
OZA 
JMP 
TAU 
SNA 
JMP 
JMS 
wMP 
Loc 
JMP 
UGA 
TAW 
Lia 
DNA 
UMP 
pA 
DNA 
JMP 
, AU 
WOA 
TAW 
JM> 
TAU 
UCA 
JMP 
"4 

TAU 
>PaA 
TAW 
TAU 
JM>d 
wMr 


I TYPSTG 
TEMY 
FLAW 
TYPSTG 

I TeMQ 


TSCe 
I TeMQ 
TSCe 
TEM 
TSCl 


K7/ 
TEMR 
FLAG 
CLA 
TYPSP 
TEMR 


a) 
PRINT 
1 Tole 
FLAW 
] Tole 
FLAG 
TEM 


TYPAT 


CLA 

I TYPSTG 
SKTPMA 
SWITCH 
TEMR 
PRINT 
SKIPPA 
SWITCH 
1 Tole 
M4d 
Cidw 
Ce4u 


] UPUNCH 
1 PRINT 


/GET AND STORE 
/JINITIAL AUDRESS 
7ULbAR FLAL, 
/SET UP EXIT 
/PICK UP QATA 


4600 TYPE 1ST CRARACTER 
/PICK UP QATE 

/G0 TYPE 2ND CHARACTER 
/tEVEN STRING ADDRESS 
740 BACK FOR MORE 


/MASK OFF 6 BITS 
/SAVE CHARACTER 
/TEST "SPECIAL" FLAG, 


/JSET TYPE SPECIAL 

JNO, REGULAR CHARACTER 
/42ER0? 

/YES, SET FLAG. 

JNO; PRINT JT, 
/RETURN, 

7SET "SPECIAL" FLAG, 
/eXIlT 

/ULEAR FLAL, 

TEST FOR 2#, 


/O;TYPE "e" 
/TEST FOR 1 


/JYES, EXIT CODE, 
JALTER INSTRUCTION 
/TO0 Be "SMA" 

/TYPE CHAR 


AALTER INSTRUCTION 
/T0 Be "SPA" 
“RETURN 


/COMPARE WITH 42 
/OR SMA FOR SPECIAL COUELS, 


{00 PRINT CHARACTER 
ARETURN 











2526 
£527 
e390 
w234 
wo$2 
vss 
2504 
0535 
2256 
a>57 
w>492 
2544 
242 
2243 
g544 
0945 
0546 
0547 
Q55u 
g>54 
2292 
2353 
goo4 
g555 
556 
£257 
g>562 
g261 
2562 
503 
6364 
0565 
2266 


PERK 
cli2/ 
6¢ 46 
7age 
aacd/ 
7650 
5$3/7 
6041 
2$3e¢ 
O04e 
si2/ 
2726 
WE Ze 
7200 
1742 
5564 
es4e 
L74é 
$362 
254e¢ 
174< 
$566 
cb4e 
1764 
$762 
2364 
2$62 
2860 
BOS 2 
5742 
iv Qo 
wd Oe 
gd Oo 








PUNUR, 


MOVVE > 


MOVtA»s 


FAUUR? 
TAUDR, 
MCTR» 


Loe 
Tha 
LEA 
7 Au 
DiWA 
J MP 
Tor 
JMR 
Tur 
WUA 
JMP 


VLA 
TAU 
WUA 
132 
TAU 
UCA 
>a 
TAU 
WLA 
ist 
TAU 
Wo A 
13Z 
ise 
loz 
WMP 
JM 
0 

rf 

é 
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PL AG 


PFLAG 
CLA 
r+ 


274 


PPLAG 
] PUNCH 


1 MUVVE 
FADUR 
MOVVE 

T MOVVE 
TADUR 
MOVVE 

} MUVVE 
MCTR 
MOVVE 

I FAUDR 
I TAUUR 
FADUR 
TAUUR 
MCTR 
MOVEA 

] MOVVE 





PAGEL 16 


/JSET PFLAG 
/PUNCH/PRINT 


/LE CiPFLAG) 
/FLAG RESKT? 

/YES 

JNO, FLAG UP? 

/NO. 

/YEd, CLEAR PRINTER FLAG, 
/CLEAR PFLAG 

/EXIT, 


GET AND STORE 
/"FROM" ADDRESS 


“GET AND STORE 
"TO" ADURESS 


JGET AND STORE 

"MOVE" COUNT, 

“SET UP EXIT, 

{GET "FROM" WORD 

/STORE AT “TO" LOCATION 
/*1 TQ FADUR 

/*1 TQ TAQUR 

JUONE MOVING? 

JNO. REPLAT 

YES, EXIT: 


‘= - Oo 


ASreaimianavncee maimamnion merit davdtlilim teeth ad aA SD OT 
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| 
26k ®, 17/41 
JINITLALI£Z& BINARY PATTERN SUBROUTINE 
| Q66@ C¥vew fait. 2 
| B60 7ebu via | 
ved2 $204 YUA PT /SET Plwte 
| gov3 Soyv UMP { INITPT FEST 
| B6e4 geG~ PTL, d 
: 0625 ere PT1) é 
| 0606 e57/ PTMSKs o/¢ 
| /SUBRUUTINE TO SET AC TO NEXT BINARY PATTERN CHARACTER 
| 2687 eeou GETPT1, # 
: G612 720” ULA 
, 611 1204 TAU PTY /LET PTY 
$612 3202 UCA PTL JSTORE aT PTL 
v613 i¢v>? ;AU PTL /GET PT1 
YO14 7eeL JA /*i TO AC 
9615 200 ANU PTMDSK /LIMIT TU 8 BITS 
2616 3204 UGA PTY /STURE AT PTY 
2617 12> TAU PT1 JLET PTL 
U622 dou/ JMP J GETPTT EXIT 
/SET GURFPER AREA SUBROUTINE 
go21 weov STH, v 
622 445> JM> I] UMOVE /MOVE CRLF TO BLOCKA 
2623 ¢131 CR 
2624 «#172 SLUULKA 
yo25 7776 -¢ 
Y626 445 JMS J UMOVE /MOVE CRLF TO BLOCKS 
@627 W131 UR 
2652 45e/ SLUCKE 
v6S4L 7770 -¢ 
Y6$2 4450 JM> | UMOVE /MOVE CRLF TO BLOUKE 
v653 0131 LR 
Z6$6 4421 BLUUKL 
W6$5 77706 -¢ 


WO$6 3621 JMP | STUF /EXIT, 





z 
5 
i 
i 
, 














om atnsranneiniinnrenecN Mn AAA NLA Ht LARSSON MANGE AVENE NE dL ISL ak do Dey a le De 











~eS7 
¥b4B 
bod 
,842 
£643 
wO44 
2645 
g646 
gO47 
2650 
P6541 
2652 
6653 
C654 
wh>5 
0656 
9697 
B66U 
C661 
0662 
G03 
Y664 
0665 
Z666 
0667 
672 
we74 
Z672 
0678 
6674 
0675 
W676 


ye7? 
QO? ee 
£724 
wie 
2728 
g7igd 
725 
g7 U6 
77 
w7iv 
O714 
e712 
w713 
o714 


Bue 
72d 
LO3/ 
9242 
cess 
445> 
wugu 
417/ 
7772 
4455 
G47/ 
4202 
7678 
445 
417/ 
4541 
7670 
bO3/ 
wBgw 
4455 
i71¥ 
4$17/ 
7701 
445D 
1714 
4270 
7767 
4455 
4177 
44614 
7670 
5664 


dO 
4452 
vue) 
4177 
7/706 
4455 
417/ 
4201 
7O7¢é 
4455 
417/ 
6541 
7470 
be7/ 


Ft S$. 


FSALL? 


RoTMP » 
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0 
VLA 

TAU ] Fors 
wwA wad 

jot Fors 
JM> |] UMUVE 
0 

oLUGKI 

“5 

JM> [T UMOVE 
BLUUKI 
BLUCKL+eS5 
=142 

JMa J UMOVE 
BLUUKI 
BLUCKE 

eli 

JMP [ FBS 
i 

JM> [ UMOYVE 
A 

SLUCKY 

off 

JM> [ UMOVE 
A 

OLUUKLe/7 
ae * 

JMS ]—| UMOVE 
SLUCKI 
oLUCKe? 

"ile 

JUMP oT ¢oALL 


é 
JMa | UMOVE 
PTLMP 
SLUUKI 

na 

JMS ] UMOVE 
SLUUKI 
sLWUCKL*e 
=-106 

JM> 1 UMOVE 
SLUUKL 
SLUUKES 

“Li 

JMP |] FOoTMP 








PAGE 12 


/FILL 144 CRARACTER BUFFER 
WITH 3 CHARACTERS WHOSE 
ZADURESS JTS SPeCTb lev 

/AT CALL?*1 


/EXIT 
/PILL 144 CHARACTER BUFFER 


/WITR ALL PRINTABLE ASCII 
/UHARACTERS , 


“EXIT 


/PILL 144 CHARACTER BUFFER 
/wlTH DATA IN PTEMP 
/ANJY PTEMPI, 


/eX1Ts 


, 
5 
a 
4 
m3 
% 
: 
i 
& 
3 


i aa rs 


tanh oe eg eer 








715 
~716 
Y717 
w720 
w724 
J722 
d723 
Q724 
Y725 
0726 
0727 
B7 S20 
2754 
o7se 
0753 
2754 
2735 
07$6 
g7$7 
2748 
0744 
Q742 
¥743 
2744 
9745 
o746 
0747 
G79 


2791 
O72 
0753 
2794 
W795 
0756 
0757 
0760 
07614 
2762 
76% 
2764 
2765 
2766 





280 
G45 
3044 
417/ 
7774 
4455 
417/ 
4205 
76074 
4455 
417/ 
4511 
7670 
5712 
BU2wW 
4459 
1605 
a17/ 
777¢ 
445°2 
4147/7 
G22 
7676 
4455 
417/ 
4541 
7670 
5738 


020 
a45>5 
42656 
417/ 
7/77 
4455 
417/ 
420/ 
7700 
445» 
4$47/ 
4$11 
7076 
S751 


Py SS4s 


wb 569 


Pws3Se 
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4 

0 
JMS ] UMOVE /MOVE 4 CHARACTER ASRSS PRINTER 
ASoWP4 /WORST CASE PATTERN TO 
SLULKI /oLUCKI 
m& 
JM> [ UMOVE /PILL BLOCKY WITH PATTERN 
SLUCKI 
BLUCKI+4 
-104 
JMS ~ UMOVE /PILL BLOCKZ WITH PATTERN 
SLULKI 
SLUCKe 
“Lis 


JMP J FW5$4 
0 

JM> J] UMCVE 
ASSAPH 
SLUCKI 

ae) 

JM> J] UMOVE 
SLUCKI 
SLUUKL +O 
-"lde 

MOVE 

GLUCKI 
SLUCKS 

aa Op 7 

JMP [| FwSg6 


0 

JM> ] UMOVE 
ASSWPRS 
SoLUUKI 

“1 

JM> J] UMOVE 
SLUUKI 
oLUCKL+10 
“160 

YM> 7] UNOVE 
SLUCKI 
GLUCK? 

“Lid 

JMP T FWS5S 





/tX1T 

JMOVE 6 CHARACTER ARSSS PRINTER 
/JWORST CASE PATTERN TO 

/8LOCKtL 


/FILL BLOCKS WITH PATTERN 


/bOILL BLOCK2 wITH PATTERN, 


EXIT 


/MOVE 8 CHARACTER ASRSS PRINTER 
/WORST CASE PATTERN WITH 
ZINTERSPERSED BLANKS TO BLOCKI, 


/piLL BLOCKY WITH PATTERN 


/PILL BLOCK2 WITH PATTERN 


/EXIT 














Tice 
deal 
iev2 
1063 
iva 
1vud 
Tuws 
1207 
Lea 
Lid 
Lelie 
1613 
1014 
1015 
116 
1617 
1@28 
Le2i 
122 
1ud3 
1w24 
1025 
1626 
tue7 
Lease 
Lust 
Lise 
133 
1254 
1035 
103S6 
137 
1240 
144 
Suse 
i248 
0 4S 
1245 
10446 
te47 
tea 
Luo 


Lege 
UV AYw 
&45D 
4200 
417/ 
7/74 
46455 
G17/ 
42us 
7674 
44592 
617/ 
6$41 
7670 
5600 
bdyw 
4452 
LO7¢ 
417/ 
T7 fe 
4455 
617/ 
4209 
7670 
4455 
417/ 
6$i1 
7676 
5616 
dye 
4455 
170% 
4477 
7/7 
645) 
Gi7/ 
a2y/ 
77 Sk 
645d 
&17/ 
6Sil 
767¢ 
305% 





#, L7/ed 


Fa Sods 


Puwdo6e 


FwSdSe 
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JMS | UMOVE 
ASDWRY 
MiuvuKa 

= 

JMd | UMOVE 
s.UCK L 
bLWUKL+4 
=126% 

JM> | UMOVE 
SLUCKI 
gLUCKE 

=-1iv 

JMP T FWS54 
@ 

JMS T UMOVE 
ASIWPO 
oLUCKI 

=6 

JMS | UMOVE 
oLUCKI 
SLUCKI +6 
Sue 

JMS J UMOVE 
BLUUKI 
SLUCKe? 

“Lic 

JMrP J] FWS56 
g 

JMS J UMOVE 
ASI2WPS 
SLUUKI 

=ld 

JMS J UMOvE 
SLUUK GS 
SBLYUUNKIT 41 ¢ 
“iv 

JM> ] UMUVE 
BSLUUKI 
SLUCK 2 

"liu 

JMrP | FwsoS 





PAGE 14 


/MOVE 4 CHARACTER AdRS> PRINTER 
WORST CASE PATTERN TO SLUCKI. 


/eiLL BLOCKL WITH PATTERN 


7PFILL BLOCK2 WITH PATTERN 


/eXIT 
/MOVE 6 CHARACTER ASRSS PRINTER 
/JWORST CAS& PATTERN TQ BLUCKI 


/rILL BLOCKY WITH PATTERN 


/PILL BLOCK2 WITH PATTERN 


/EXIT 


/MOVE 8 CHARACTER ASRSS PRINTER 


/wOrST CASE PATTERN TO sbLUCKI 


/pILL BLOCKY WITH PATTERN 


/FILL BLOCK2 WITH PATTERN 


“exit 








yeo2 
juss 
1254 
LWwoo 
iu D6 
too7 
1363 
1e64 
1£62 
1463 
12604 
1065 
1u06 


1067 
10708 
1471 
1472 
1273 
174 
4675 
1476 
1277 
1122 
iio 


ute 
1104 
Liss 
1165 


1106 
liv? 
1112 
sa Be 
1ide 
1113 
L114 
1iii9 
1ii6 
ola ts 
Lice 
hee 
Liec 





0020 
$260 
LO5¢ 
7441 
3260 
Za04 
7640 
5264 
2ere 
5656 
1266 
565¢ 
Oegs 


QED 
4446 
110 
7672 
i$d1 
4454 
esd 
5275 
5O06/ 
Youu 
0576 


yuYge 
72460 
4454 
b/ie 


£0 gi 
4446 
lide 
795+ 
&451 
7246 
$134 
4946 
1id/ 
1120 
6ve4 
5790 
i dig 


an 


x. 
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/SuUBRYUUTING TO COMPARE C(AC) TO C(CALL*1) 
CriCK » ” 
JLA WwUHK /aTURE AC AT wCHK 
TAY | CHCOK /SET COMPARE DATA 
UIA Zé*>s COMPLEMENT IT 
PAW WORK JADU UCWCH« ) 
ly¢ CnCK JSET VP FOR UNEQUAL EXIT 
>Z£A CLA /E QUAL? 
JMP ,*3 NO, 
LSé CrACK JYES, SET UF FOR LQUAL EXIT, 
JMP | CHUCK EQUAL EXIT 
TAU WCHK /JRESTORE AC 
JMP | CHUCK /JUNEQUAL EXIT, 
wONK» ’ 


/PUNCM Je 6COuk $76) CHARACTERS SUBROUTINE 


PLTLR» "a 
JM> J] SETCTR JSET P72UTR TO -780 
P7OLTR 
=106 
JAU LUCUEL /GtT $/6 COVE 
wWM> [| UPUNCH uO PUNCH IT 
Lot P7OBCTR /ALL CHARACTERS PUNCHED? 
JMP 35 /NOs REPEAT, 
JMeP J PLILR /YES, EXIT. 

P70CTR, w 


LUCUDE» 8/09 
/PUNCH SYNU CHARACTER SUBROUTINE (RUBOLT) 
PSYNC, v4) 


whA CMA SET AC TO 7/77 
JMS | URUNCH JPUNCRH A RUBSOUT 
JMP |] POYNC /EXIT, 
ZSYNC ReAVer SUBROUTINE 
RSYNC: vs 
JMD> | SETCTR /SET RSCTR TO 7-145 
ROUTR 
alt an 
JMS |] URRYDY /WAIT FOR READER NOT SUSY 
CLA CMA JREAILR NOT bUSY, 
ULA RBUDSY JSET REAVER BUSY INUDICATOR 
JM> 1 StTCTR ZSsET REAVER INTERRUPT 
VUTR /JSERVICE RETURN ADDRESS, 
RSOERV 
LUN /tNASLE INTERRUPT 
JMr J RSYNC XT 
RSCTR: Pa 





2 toa. 














i123 
ti24 
li22 
1126 
1127 


a 

113% 
1152 
1158 
1154 
1185 
T1LS6 
1137 
1142 
1141 
1142 
1143 


1144 
1145 
1146 
11447 
1150 
1i31 
1152 
1155 
1154 
Lio5 
1156 
1137 
1162 
1164 
1162 
1168 
1104 
1165 
1166 


6236 
1139 
7040 
5$3> 
3134 
7 $60 
1130 
7004 
Tio? 
549” 
2S2¢ 
5477 
7602 
4446 
ii2¢ 
7>o5/ 
5477 


5136 
701" 
$1392 
6041 
5554 
684¢ 
si2/ 
5561 
631 
5 $60 
575/ 
Oegv 
7496e 
7300 
1135 
7204 
L156 
6221 
540 





RSSERV>, 


INTSVC, 


VOTR >» 


OuT ? 
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ARS 

YAU MRBUUT 
Sf£A UCLA 

JMP ,t/7 /NO, 
JLA rRoUoSY 
wha CLL 

TAU LINK 

xX Al, 

TAW AC 

JMpP | 3 

jot RSCTR 
JMr J UOQUT 
ALT CLA 

JMo J] SeTCTR 
NOUTR 

~edl 

JMrP J UQUT 


WOA AC 
RAK 

WEA LINK 
for 

wMP , 44 
TOP 

UGA PFLAG 
JMR QUT 
KP 

JMR 4 #5 
JMP [- 4*i 
0 

HLT 

VLA CLL 
TAU LINA 
RAL 

TAU AU 
LON 

JMer J] 28 





/READ 
/ADU MINUS RUBOUT 
/iS IT & RUBOUT? 


/YES, CLEAR READER BUSY, 


RESTORE LINK 
/RESTORE AC 

RETURN 

4142 CHARACTER READ? 
ANO. 

/YES, NO SYNC, 

7SET RSCTR TO -149 


/ReE TURN 
SAVE AC 


/SAVE LINK 
/PUNCH/PRINTER? 
/NOs 

/YES, CLEAR FLAG, 
JULEAR PFLAG 
/RETURN 
/READER/KYBD? 

/NO ERROR, 

/GO SERVICE READER 


/UNEXPECTEU INTERRUPT 


7RESTORE LINK 
/RESTORE AC, 
/ENABLE INTERRUPT 
/RETURN 








4 
q 


Sa ee eae ee ees one one cee 


Danateaiios sSiepne Sasi aua a edibih Liat oat 


eset 


ahd Seven wale Rete att atte She | ibataak Someitinth tots Ql he 


sera, ia OI 





ted 
1204 
t2wv2 
Lewd 
1204 
4209 
1206 
12w7 
1212 


1211 
1212 
1213 
1214 
12195 
1216 


1217 
4220 
1224 
1222 
1223 
1224 


1225 
1226 
12e7 
1250 
1251 
12$2 
1253 
1234 
1255 
1256 
1237 
1240 
tet 
4242 
1243 
1244 
1245 


fede 
oyu 
4446 
12492 

172 
445 
0130 
1244 
77774 
57600 


QO 
7200 
40492 
2242 
4454 
5641 


vow 
420 
4211 
2244 
5221 
564/ 


Vegv 
&2QU 
4476 
4440 
1240 
43792 
1640 
3025 
2245 
4443 
424i 
2244 
2238 
9692 
Ov ow 
WY gv 
Pe Qge 


*, 17/+1 
PSTUP» 


PJOR, 


PotKs 


/ 
PalKRs 


DAR 
POTR» 
PAUUR:, 
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ig 

SETLOLU 
PAUUR 
SLUUKA 

MOVE 

oLACNT 

rUTR 

a 

dMe |[ PoTyUP 


v 

Wh, A 

fAUW J PAUQDR 
lsc PAQUR 
JMo J] UPUNCH 
JMP | PUCR 


m 

JMs PSTUP 
JM> PUCR 
{se PCTR 
JMP 492 
JMP | PBLK 


ig 

JM> PSTUP 
JM> J] UUCNTP 
Se TOU 

WAP 

WoL 

TAU [| DAF 
WEA DELAYM 
lof UAP 
WeLAY 

JM> PUCK 
lsé PCTR 
JMP ,3O 

JMrP J] POLKR 
0 


v7) 
@ 
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ZPUNCH SETUP 
/SET DATA AUUR 


/JSET BSLOUK LENGTH 


/EX1T 
/PUNCH UATA CHAR SUB, 


/LET DATA 
/UPDATE PADUR, 


/L0 PUNCH/PRINT DATA 
/eXIT 


JPUNCH DATA BLOCK FULL SPLED 


/b0 PUNCH CHARACTER 

/ALL CHARS PUNCHED? 
JNO. REPEAT 
/JYES, EXIT 


/PUNCH DATA BLOCK RANUDOM STALLS, 
/GO LO SET UP 
/FILL DELAY BLOCK 

/ubLK ADURESS TO DAP 


/GET DELAY WORD 

/TO DELAYM 

JUPWATE UAP, 

JULLAY, 
/GQ PUNCH CHARACTER 
/JALL CHARS PUNCRED? 
“NO, REPEAT 

/YES. EXIT: 























YdZe 
7264 
12354 
7066 
925 
5649 
de 20 
4240 
2134 
4446 
i$1¢ 
417> 
6452 
C1 $v 
i$is 
7/7 
$122 
5654 
QL gw 
4254 
4446 
115/ 
1$21 
6431 
5670 
Oa gu 
6254 
&4a40 
Lis/ 
pO 
46446 
pape ae 
4972 
6é41 
567/ 
POR) 
gdZu 
ov ge 


Fed 
Leis 
bug% 
oO 
4472 
ivic 
$820 
coe 
6¢ 50 
a> 
ot £0 
2$3i 
5 S4/ 


RRUY » 


RSTUP 2 


RUGLK » 


ROGLKR» 


DAK, 
RAUUR » 
RSCTR, 


/rREADER 
RINSRV >, 


RJORVs 


Ss» 
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ra) 

LL, A 

TAY RBUSY 
s>ZA CLA 

Pe i #2 
JMP JT RRUY 
"a 

wAMo RRvy 
1S¢ RBUSY 
SETLOC 
RAWUR 
OLULKA 
MOVE 

OL MONT 
XBUTR 

WLA ERROTR 
JMP JT ROTUP 
vs) 

JM> ROTUP 
oe TLOC 
VCTR 

RUORYV 

LQN 

JMP [ RUBLK 
0 

JMa RSTUP 
Sb TLOY 
VGTR 
KURSRV 
>ETLOC 

\J AK 

OL. A 

JON 


JMP I RUBLKR 


v7) 
o 
@ 


SERVICE ROUTINES 


VLA 

TAY I UA 
WUA DELAYS 
isz DAR 


JWM> | UJLMSR 


Tav I] RAUDR 
WUA St 

lot RAUUK 
AKS 

gis. ] CHECK 
rs 

JMP ERROR 
wMP RUJUNE 
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/JWAIT FOR ROR NOT BuSY SUc, 


/FETCH RBUSY, 
/RKEADER BUSY? 
JYES, TRY AGAIN 
SNOLEXIT 


/WAIT FOR RYR NOT BUSy 
/StT RBUSY INDICATOR 
/StT DATA AVYDR 


SET DATA BLOCK LENGTH 


7ZGLEAR ERROR COUNTER 
/EXIT, 
/READ DATA BLOCK. FULL SPeED 
/GU DQ SETUP 
/SET READER SERVICE 
/ADVRESS:» 


/ENABLE INT, 


JREAD DATA BLOCK,RANDOM STALLS 
730 DO SETUP, 
/StT READER SERVICE 
/ADURESS + 


/SET DELAY BLOCK ADURESS, 


/eNABLE INT, 
/EXIT 


“MOVE Ub, AY WORL TO 
/UELAYS, 
/JUPUATE UAR 
JSTALL» 
JoET cXPECTED CHARACTER 
foToRe AT SB 
/UPDATE RADUR 
ZREAD CHARACTER 
4L0 CHECK (IT, 


/ERROR 
/v0ud e 








i$Si4 
1332 
2553 
1954 
4355 
1536 
1337 
1348 
1341 
1$42 
1343 
1344 
1$45 
1546 
1347 
13 24 
1591 
1322 
1556 
1454 
13295 
1526 
4527 
1360 
15e1 
1562 
1563 
1564 


$424 
212 
5536 
7240 
$122 
76¢4 
di2o 
7656 
5$4/ 
1124 
740¢ 
7206 
152° 
7490¢ 
2319 
5477 
7200 
t1i2° 
7650 
6457 
112° 
740¢ 
7 $00 
$134 
11492 
7 284 
114506 
240 





ERAQR » 


RUQUNE » 


WOA 
Loz 
JMe 
VLA 
JLA 


ANU 
>NA 
IMF 
TAU 
AL. J 
VLA 
TAW 
ALT 
loz 
wJhMF 
WL, A 
TAU 
SNA 
wJMP 
} AU 
ML, 7 
VLA 
UCLA 
TAU 
RAL 
TAU 
JM 


ERRUR 
rnRRCOTR 
a7 
CMA 
RARRUTR 


SROMSK 
CLA 
RUDUNE 
rRROR 


S68 


RSCTK 
] UQUT 


ERRCUTR 
CLA 
2+d 
ERROUTR 


Chl 
ROUDSY 
LINK 


AC 
1 8 
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/JSTORE BAU CHARACTER 
JINCREMENT ERROR COUNTER 


/OFLOW. 7777 TO AU 
/RESTORE TU 77/7, 
“READ SR 


/HALT ON ERROR? (SRO) 
/NO; 

/YtS, FET BAD CRARACTER 
/ERROR HALT, BAY CHAR IN AC 


7GOUD CHAR IN AC 
/ALL DONE? 
JNO. TO MAINLINE 
SYED. 
/JLET CCERRUTR) 
/ANY ERRORS? 
/NO. 
/YES, 
/JNUMBER OF ERRORS IN AC, 


/CLEAR RBUSY INUITCATOR 


7ZRESTORE LINK 
TO MAINLINE 























14as 
Léui 
44y2 
1483 
1404 
4425 
1406 
1427 
1410 
1411 
1412 
1415 
1414 
44145 
1416 


1447 
1420 
1424 
1422 
1423 
1424 
1425 
1426 
1427 
1450 
1454 
14$2 
1453 
1494 
1455 
1456 
14.57 
144@ 
1444 
1442 


14a 
deg" 
7500 
124 
S212 
5649> 
1496 
1W4e 
2 16 
e216 
5210 
224? 
D204 
5OG0 
wedge 
YU 


wODo 
4455 
Wi $e 
1442 
77774 
4440 
1441 
49792 
644/ 
126 
7450 
Beef 
7041 
$4) 
2241 
ee4e 
Se2l 
564/ 
wk gw 
Jd gv 








He Af i eh 
ULMSR» 


ROTRA» 
ROTRB» 


ULCNTR» 


GNRNDe 


DVAUURs 
UCTRs 
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GLA Cob 
TAU DELAYS 
WUA RUTRA 
JMR T yt 
2%) 

TAW MiLd 
UWUA RCOTRB 
lot RCTRB 
JMrP , 2] 
1S2 RUTRA 
JMP ,a7 
JMY J] UDLMSR 


rs 

MOVE 

SLAONT 

WLTR 

=) 

ae TLOC 

VAUUR 

UoLK 

JM> J] RANDNO 
ANU ODLYMSK 
oNA 

JMP GNRNU 
Cla 

UWUA ] DAVUOR 
Lo¢ JaDUR 
lot JUTR 

JMP GNRND 
JMrP J JLONTP 
J 

rs) 
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/GET AND STORE MSEC 
/DELAY COUNT 


/GET AND STORE 
fiMS CONSTANT 
/OELAYED 1 MS? 


/NO> 

7Y¥tS, DONE JELAYING? 
“NO. 
/YES, EXIT 


/SUB TO FILL DELAY SLOCK 
/SET DELAY BLOCK LENGTH 


/UBLK AQUR TO VADUR 


/GET RANDOM NUMBER, 
/REMOVE &XCESS BITS 
/€ERO? 
/YeS, GET ANOTHER NUMBER 
/NO, 2'S COMPLEMENT IT 
/JSTORE IT IN DELAY sLOCK 
SUPUATA DELAY BLOUK AUDDUR, 
/BLOCK FULL? 
JNO, REPEAT, 
/YED, EXIT 








RAMEE eee” whe” too adel ahebnel be ees ST Clieees a 


ratte reba ait 


Saini i 


aeOhl it Lae tttit, + rude 


= pected ainadbioe we nenby Te 


a+43 
1444 
1449 
ad ®) 
1467 
1490 
14a 
1992 
1423 
1494 
1455 
1456 
1497 
7460 


266% 
1462 
1463 
1466 
1465 
1406 
4467 
1470 
1474 
1472 
4473 
4474 
1475 
1476 
1477 


122d 
Toul 
L>e2 
2505 
1 53¢4 
1345 
oe 

1327 
4° 1 yi 
igo wage 
Lae 
a2ae 
1344 


“ fo 
au? 


gd ge 
4440 
wl b4 
id Jv 
1646 
5255 
447¢ 
4475 
vg 
4474 
4 oe 
447¢ 
4451 
5444 


wdZ 
4446 
~134 
Bk 
1661 
$275 
i275 
$276 
447¢ 
447585 
oy aan 4) 
4474 
4o0¢ 
CLG 
5272 


ae ye 2) 
4440 
b1is4 
ve ge 
47¢ 
6475 
490 
4474 
Sen sEe) 
sol 
4 2GeCe 
e472 
4451 
5444 
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/PUNCH TEST NORMAL TEST SEQUENCE ROUTINE 


NTST, 


NTSTAs 


rf 
De TLOVU 
MOUDY 
ra 

Ta? | 
JCA NT 
JM> | 
JM> | 
Pay 
JMD 
wJM>d 
JM> 
wv 
IMP 


NToT 
STA 
UPLTLR 
UPSYNC 


URSYNC 
URUBLK 
greTiR 
URKDY 
CRAIN 


/PUNCM TESTS SPECIAL 


STST, 


STSTA, 


STSTEs 
STSTC, 


va) 
SETLOC 
ROUSY 
ra 

Tau 
wUA ST 
Taw ST 
WOA ST 
JHM> J 
JMS ] 
¢ 

Jh> | 
JM> ] 
ra] 

JMP ST 


STST 
STA 
STA 
STC 
UPLTLR 
UPSYNC 


URSYNC 
URUBLK 


Sid 


/CLEAR RBUSY 


SSELECT PUNCR MODE 


JPUNCH LEAUER 
/PUNCH SYNU CHARACTER 


7SYNC READER 

/READ DATA BLOCK 
/PYNCH TRAILER 

/WAILT FQR RDR NOT BUSY 
/GHAIN 


TEST SEQUENCE ROUTING, 


/CLEAR RBUSY 


/SELECT PUNCH MODE 


/PUNCH LEADER 
7PUNCH SYNC CHARACTER 
/PUNCH DATA BLOCK 
/JSYNC READER 
/READ DATA BLOCK 
/PUNCH DATA BLOCK 

/GO READ AGAIN 


/COMbBINeEY TEST NORMAL TEST SEQUENCE 


CNTST.s 


é 
5 an 
“SUSY 

Pa 

JMS 
wits 
J's 
JMS 
JMD 
JMD 
JMo 
gas 
wM> 
Fitted 


ne ee er en ee | 


UPLTLR 
JPSYNC 
JPBLK 

JRSYNC 
URBLKR 
UPBLKR 
JRUBLK 
UPLTLR 
URKDY 

CHAIN 


/CLEAR RBUSY 


7PUNCRKH LEADER 

JPUNCH SYNC CHARACTER 

JPUNCH QATA BLOCK (NO STALLS) 
SYNC READER 

ZREAD DATA BLOCK (STALLS) 
/PUNCH DATA BLOCK (STALLS) 
/READ DATA BLOCK (NOQ STALLS) 
PUNCH TRAILER 

/WAIT FOR READER NOT BUSY 
/CHAIN 














6/26/68 14546, 56 PAGE 22 


7TYPE LING UF S$ CHARACTERS (NO DELLA SI 


jol6 9 wdge TYPLNGs 
419.7 7éd0 ULA 
toed sees ULA JELAYM /CLEAR DELAYM 
to¢e1 4710 TAU J TYPLNG YSET AND STORE 
1922 $429 WUOA +3 ZADURESS Qk DATA 
to2$ 28106 tse TYPLNS 
to24 446) JMS ] UkoFS /GO FILL BUFFER WITR 3 CHARACTERS 
1525 eedu 0 
1526 $456 JMS ] UTYPE 460 TYPE LINE 
1527 57316 JMP oo] TYPLNG /teXIT 
/JTYPE LINk OF ASCII PRINTABLE CHARACTERS 
1550 Gdyw TYPE, £ 
4554 4446 JM>s |] S&TCTR /SET TCOTR TO 376 
ies2 12354 TUTR 
1533 7€64 “114 
1934 44406 JM> ] SETCTR /SET FETCH TO ADDRESS 
1535 425% Po TCH /QF BLOCKA, 
19$6 41795 SLUCKA 
1537 18206 TYPLA, FAU QELAYM JGET CCDELAYM) 
1548 7648 DA CLA /0? 
15494 4445 JM> | ULYAIMS ZNO. SO VELAY, 
1542 1756 TAU I FeITCH /YES, SET UHARACTER 
1343 4454 JM> ] UPUNCH 460 PRINT CHARACTER 
41544 23o0 lot FRTCH /SET UP FOR NEXT CHARACTER 
1945 251 {S¢ TUTR /UONE? 
1946 53537 JMR TYPLA JNO, REPLAT 
1247 o7 92 JMNrP T TYPE AYES, EXIT, 
155242 vd» FeTCHe 
a Ge er ve gei TOTRs» 0 

















1628 
to¢4 
L6é2 
14523 
1604 
L685 
1686 
1607 
1o12 
told 
1612 
1613 
1614 
1615 
1616 
1617 
162@ 
1621 
16¢2 
1623 
1624 
£625 
1626 
1627 
1658 
1651 
1632 
1655 
1654 
1655 
1656 
1657 
164 
L641 
1642 
1648 


Teaw 
wid ie 
Tey 
3230 
2ébu 
LEW 
bes/ 
22g 
1241 
w636 
Vite 
7@16¢ 
7O1¢ 
4226 
Zes/ 
1241 
7040 
wosgo 
4229 
5600 
YOV~ 
5240 
4244 
7006 
7004 
bede 
1246 
wedge 
1240 
SO3/ 
5629 
WdGv 
ddOw 
een On 
7730 
w/7 Ol 
646 


#, L/7/*) 
ASUCCNes 


CNV >» 


WASU, 
SASCs 
ASUT, 
K7/or 
Kd707 
K6d6u» 


é 
fad 
WU A 
Loz 
TAY 
WA 
jor 
TAW 
ANUJ 
RT 
KTR 
x TR 
JM> 
loz 
TAU 
VM a 
ANU 
JM> 
JMP 


WUA 
}AU 
RTL 
MAL 
ANY 
TAU 
ANU 
TAY 
UA 
JM 


4/00 
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{ AdSCEON 
wASU 
ASCUN 

] AdCEN 
SASC 
ASC, 
K7/700 

1 WASCG 
CLL 


CNV 
SASC 
K/700 


I WASG 
CNV 
I ASCEN 


ASCUT 
ASCT 


Kd/o/ 
ASCT 
Kd/07 
Kodo 
J SASC 
I CNV 


w/o/ | 


OVO" 





Bold usar sPIE DR ce INR A LOG RL HN AHA 











1044 
1645 
16458 
1567 
Too 7 
reek? a 
4622 
1623 
1654 
1605 
1456 
1697 
1668 
1664 
1462 
1663 
1664 
1665 
4666 
1667 
1673 
1674 
16/2 
1673 
16/4 
Loy 5 
1676 
407 7 
1/ee 
L7wi 
1782 
170s 
1724 
470% 
176 
1/7 


4712 
z741 
a eae 
£718 
1714 
1715 
1/16 
se ates 
1722 
ie. 
1/722 
1723 
1724 
72> 
17<¢6 


we4g/ 
v55/ 
viel 
#257 
vic a/ 
wS3/ 
w3o/ 
veo 
Wse/ 
v$3/ 
geal 
02460 
w33/ 
240 


wed2/ 


ues 
O25/ 
e240 
weal 
vSS3S 
wey 
ve SOs 
wed/ 
0535 
v2e7/ 
y$2s 
We7/ 
vw $3s 
y24/ 
e254 
S35 
W240 
we7/ 
ded 
w$ds 
gees 


Sed 
JSZe 
WSYS 
J Se 4 
JSG? 
i SYO 
adel 
eee 4 
@$ 11 
wdte 
w $i 
es14¢ 
WSL 
$10 
Wis 





ASSWPS 


ASSnWPO, 


ASSWPO: 


ASOWPS:s 


AS2WPO,; 


ASOWPS» 


A, 


U» 


wee? 
155/ 
LSd/ 
4¢g2/] 
£24) 
£557 
6$e/ 
i227 
0$e¢7 
0597 
wee? 
249 
0597 
de4y 
0Se¢/ 
C24 
o2o/ 
E240 
g24] 
0598S 
de// 
7508 
er 
L505 
é2e// 
WS0S 
ce// 
w5bd 
024] 
0240 
0558 
2240 
Odes? 
Je4d 
£505 
0240 


del 
Sve 
duo 
564 
802 
ogd 
Sé/ 
d1d 
oe aa 8 
oe 
elo 
Sie 
19 
819 
S17 
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fitter 


/LEFT ARKQW 
/*wit 
wvysu 
sven 
/LEPT ARROW 
s"wr 
sus" 
/"wi 
/LERT ARRQW 
yuen 
/SPACE 
/LEFT ARRPW 
/SPACE 
wi 
SPACE 
ey" 
/SPACE 
/? 
uc 
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: 3723 646U UMS 1 UTPLNS 
2les 1762 ered 
| 2725 3444 JMP J CHAIN 
| 2/26 bee4 PgTS24, ¢4 
| 2727 2738 PYTS2d 
/TYPE LINbE OF CHARACTERS ©, ¢ 
| 2758 4460 JM> ] UTPLNS 
| 27$14 177% UeD2 
2752 5444 JMe T CHAIN 
2733 22 PYTS2>, ¢2 
2754 274 PYTS26 
/TYPE LINE OF CHARACTERS 33¢ 
2755 4460 JM> 1 UTPLNG 
2736 177% C2/e 
2737 5444 JMP I CHAIN 
| 2742 w¥v26 PgTS20r <0 
2744 2749 POTS27 
/TYPE LIN& UF CHARACTERS >? 
2742 4460 JMS | UTPLNS 
2743 1776 Less 
2744 5444 JMP I CHAIN 
2745 027 PUTS2/4 ¢7 
2746 275¢ PYTSSY 
/TYPE LIN& OF CHARACTERS @ LN 
2747 4460 JM> | UTPLNG 
27908 2001 Loe 
2791 3444 JMP [| CHAIN 
2732 0Y$v PYTSSWr SY 
2793 2@7>o/ PYTSS1 
/TYPE LIN& OF CHARACTERS J* AND LEFT ARROW 
2/94 4460 JM> | UTPLNS 
2735 2804 Uso 
2736 5444 JMP I CHAIN 
2797 wW3i PuTS31l,» Sa 
2708 ¢76> P¥ISde 
/TYPE LING UF ALL CHARACTERS 
2764 446¢ JM> 1] UPBALL /rILL BUPFER WITH ALL CHARS, 
2762 $¥29 UCA JELAYM /6 TO DELAYM, 
2763 4456 JM> | UTYPE sTYPE LINE 
2764 5444 JMP T CHAIN /CHAIN 
2705 wW03¢ PYTS3e, Se 
2706 $eeU PYTSSS 
/JTYPE LINE OF ALL CHARACTERS, FIXED DELAY BETWEEN CHARACTERS 
elo? 4462 OMS: PP URAL /FILL BUFFER wITR ALL Crans 
2778 445¢ JMSo Tt OLYONT /JGENERATE DELAY COUNT 
2771 4456 JMS IT UTYPE /TYPE LINE 
2772 Bags JMP oT CHAIN JUHAIN 




















panne 





SEB 
Sdé4 


Suge 
Swed 
S084 
395 
5k 6 
3027 
3042 
Sdid 
Ssvl2 
$015 
3014 
5015 
SU16 
5017 
3022 


Se e4 
3822 
3223 
3H24 
$025 
3026 
327 
3YS0 
$US4 
$832 
3033 


SU S54 
3955 
35 $6 
$287 
5848 
$044 
3642 
34S 
3644 
245 
3046 


3847 
S050 
SHoL 
Sbo2 
34598 
svi 4 
Su25 
34046 
Sin? 


Sdgw 
003s 
Sdi/ 


4455 
7776 
4450 
21d/ 
4455 
328 
4446 
wie2s 
7772 
4456 
dies 
5216 
5444 
O54 
B32 


446> 
4446 
e424 
7772 
445¢ 
44956 
2121 
9227 
5444 
u3> 
3Y42 


4470 
5028 
44406 
led 
7/7eé 
4456 
elel 
2a24dl 
5844 
“id §O 
7774 


4470 
4466 
Bled 
LETS 
&452¢ 
4450 
eiedi 
250 
2444 





% 


PETSS3s 


FITEE 6 


PéTS34, 


/TYPE 6 


PeTS3os 


/TYPE 6 


PZTS3O> 


TYPE 6 


i Te 


6/26/68 14346,58 PAGE 3&8 


SS 

PuTSS4 

bENVES QF ASRSS WORST CASE PATTERN, NO DELAY, 
JM> [ UURLF /ZURLF TwICe 

=2 

JM> | XTYPST “PRINT TITLE 

WUPTST 

JMD [ YURWSS6 /PATTERN TO BUFFER 

WUA DELAYM /®© TO DELAYM 

JM> [| StTCTR 476 TO CTRA 

UTRA 

“6 

JM> | UTYPE /TYPE LINE 

Loe CTRA /ALL LINES TYPED? 
JMP #2 /NO,; REPEAT 

JMP J CHAIN /YES, CHAIN, 

54 

PYTSS5 

LINES OF ASRS3S WORST CASE PATTERN, FIXED VELAY BETWEEN CHARACIERS 
JM> [ URWS3S6 /PATTERN TO BUFFER 

JMS | StTCTR /-6 TQ CTRA 

VTRA 

=6 

JMS J] DLYGNT /JGENERATE DELAY COUNT. 

JMS I UTYPE /TYPE LINE . 

1Sz CTRA /ALL LINES TYPED? 
JUMP ,23 JNO, REPEAT 

JMP |] CHAIN /YES, CRAIN 

$5 

P¥TS5O 

LINES OF ASRSS WORST CASE PATTERN, NO DELAY 


UMD TL UR W356 /PATTERN TO BUFFER 


WUA DELAY /o TO DELAYM 

JM> |] S&TCTR /=6 TQ CTRA 

UTRA 

-6 

JM> I] UTYPE /TYPE LINE 

1S¢ CTRA /ALL LINES TYPED? 
JMP ,#2 JNO, REPEAT, 

JMP [ CHAIN /JYES, CRAIN 

90 

4717 

LINES OF ASR35 WORST CASE PATTERN, FIXED DELAY BETWEEN CHARACTERS 
JM> | UFW356 /PATTERN TO BUFFER 

JM> I SETCTR /a6 TO CTRA 

CTRA 

=6 

JMS I DLYGNT /LENERATE DELAY COUNT 

JMS I] UTYPE /TYPE LINE 

loz CTRA /ALL LINES TYPED? 
IMP oS /NO. REPEAT 

JMP ] CHAIN /YES. CHAIN 


© 








4 
? 
q 
; 
@ 
| 
| 
3 
q 
a 
4 
4 
4 
} 
| 
| 


so" 
Svot 
5862 
Sw6s 
S64 
3265 
366 
3267 
5378 
$074 
$872 


3273 
3074 
S875 
3076 
$077 
3100 
Zid 
3102 
3183 
31204 
3105 


3106 
3107 
3112 
Siii 
Si42 
3113 
3144 
$415 
3116 
S417 
3120 


$121 
$422 
3123 
3124 
$125 
3126 
$127 
S14 
Sto 
$182 
$153 


4446 
WdYe 
1144 
4446 
wl sw 
74QU 
4446 
0020 
$075 
5672 
igsge 


voye 
S1ig0 
4446 
417> 
Boe 
6450 
417> 
41706 
7404 
494 
4>Q0 


oeY1 
$i2l 
4446 
417° 
weO1 
4455 
4147> 
6176 
74901 
4504 
4200 


wYCe 
j2uw 
44406 
44792 
Pdve 
4452 
17> 
41706 
7424 
45u4 
& > iW 


/PROGRAM JL. 


/ 
Prtsds 


6/26/68 149347,1 


JM> J] StTCTR 
Z 


INTSVC 
DE TLIC 
GL AUNT 
“GO 


JM> 1; SETCTR 


KSTART 
Pity 

JMP [ . #4 
SRoLT 


7ROUTINE Os 
/PUNCRH ANU READ CHECK BLOUK OF ALL O'S 


PiTYW, 


" 

PIT 

SETLOU 
SLUCKA 

0 

MUVE 

SLULKA 
BLUCKAFIZ 
“3/7 

JMS 1 UNTST 
w~M> 1] UPBLK 


7ZROUTINE 2 
/PUNCN ANY READ CHECK BLOCK OF CHANNEL 41 PUNCHES, 


PiTtl, 


i 

Pited 

SETLOC 
SBLUUKA 

i 

MOVE 

BLUULKA 
BLUUK ATL 
=3/7 

JM> JT UNTST 
JMS J] UPBLK 


7/ROUUTINE 2 
/PUNCH ANU READ CHECK SLOCK OF CHANNEL 2 PUNCHES 


Rites 


é 

PLTS 

2h TLOU 
OLUCKA 

Z 

MOVE 

SLUUKA 
SLUUKATS 
=“S// 

JM> J UNTST 
JM> |] UPBLK 





PAGE $9 


ASRS35/55 PUNCH FUNCTION TEST 


JSET INTERRUPT SERVICE ADURESS 
/TO INTSVC 

/otT DATA BLOCK 

/LENGTH TO 

/3296 

/oeT KSTART TO INITIAL 
/ROUTINE ADURESS, 


/b40 START PROGRAM 


7/6 TO BLOCK A 
/FILL BUFFER 


460 TO NORMAL TEST, 
7USB THIS CALL 


Ji TO BLOCKA 


/PILL BUFFER 


/,0 TO NURMAL TEST 
/USe THIS CALL 


/é2 TO BLOCKA 


fp tLe QBUPFER 


/00 TO NURMAL TEST 
/USe TRIS CALL 




















Seud 
Sel 
Seue 
S2u3 
3204 
$2865 
$206 
$267 
$212 
$241 
S242 


$213 
3214 
se15 
3216 
Sei? 
$220 
$2e1 
be22 
$2e3 
S224 
$225 


$226 
3227 
5258 
$234 
3232 
3255 
3254 
3235 
3296 
$237 
8240 


Seg 


vd Jd 
3245 
4440 
417> 
WIGS 
6455 
§17> 
46176 
7491 
4504 
4ogwu 


WSO4 
5220 
4446 
4147> 
uvie 
44955 
41792 
6176 
74961 
4924 
459 


L0G? 
$241 
4446 
4172 
gdcw 
6455 
41792 
44176 
7491 
4984 
a oBe 
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#, (7/4) 
/ROUTINE 9 


/PUNCH AND READ CHECK SLOUK OF CHANNEL § PUNCHES 


PiTtds fe) 
P1T4 
SEPLOC 
BLUUKA 
g 
MOVE 
BLUCKA 
BLUCKASI 
#5// 
JMs [ UNTST 
JM> |] UPBLK 
ROUTINE 4 


/4 TO BLOCK A 


/FIiLL BUFFER 


/GO TO NORMAL TEST 
7USt THIS CALL 


/PUNCH ANU ,EAD CHECK BLOUK OF CHANNEL 4 PUNCHEg 


P1T4, 4 
PIT 
SETLOU 
BLUCKA 
lw 
MOVE 
BLULKA 
BLUUKAeL 
e5// 
JMDd IT UNTST 
JM> I UPBLK 
ROUTINE 2 


412 TQ BLOUKA 


/r ILL BUFFER 


768 TO NORMAL TEST 
/USE THIS CALL 


/PUNCH ANU REAU CHECK BLOCK OF CRANNEL & PUNCHES 


Palos 2 
rP1TO 
SE TLOU 
BLUCKA 
ras 
MUVE 
oLUCKA 
OLUUCKA+) 
-$// 
JM> ] UNTST 
JMS |] UrbLK 





/1@ TQ BLOCKA 


/FILL BUPFER 


/60 TO NORMAL TEST 
/USt THIS CALL 


OD 





to Lari and net ela intel ne Eel IIT ESD Per 


citi aaa easiest nee rersie betes teereitbetrs mantener rmbetoatlia eicteleliembanmticlainst titi nk tain 






se Ta nsliadh Ba lila SL chine he) "Sal “Talecie Be Sheildoettlliinalinbaritel Mies manly sSaceat lite leet nghl lhl torah ita aemanicit hit i ton eheachety saben bee ieee diallers ty 


rckobetedantles, Clauses straints euehfidsmetbeor lt aa D Ob a au" ileal en a tittle Ne tk Son tests AT int a 


tee 


S244 
3242 
5243 
$244 
$245 
3246 
5247 
$220 
Seat 
$252 
$293 


3204 
$255 
3276 
$297 
5200 
5264 
$262 
5203 
3264 
$265 
3266 


3207 
32728 
Se7 tk 
3272 
$273 
3274 
3275 
3276 
3277 
3580 
S524 


5402 
S508 
3504 
$305 
5506 
5 $07 
3518 
Soi] 
33éle 
$3815 
$$i4 
$315 


Wdye 
seo4 
4446 
4172 
bo4au 
4455 
4172 
41470 
7401 
4904 
420% 


Yde/7 
S2o/ 
4446 
417> 
W1QY 
4455 
4172 
44176 
7491 
4904 
4500 


Wis 0 
SS0¢ 
4446 
41472 
veg 
4450 
4172 
4170 
7401 
4204 
450 


weil 
$516 
4455 
2dg/ 
417> 
776¢é 
4455 
41/2 
42i° 
7440 
4204 
49K 


6/26/68 14:47,9 PAGE 41 


fROUTINE © 
{PUNCH ANU READ CHECK BLOCK OF CHANNEL 6 PUNCRES 


PiTé, 


o 
aa ari 
SETLOG /4@ TO BLOCKA 
BLUCKA 

$v 

MOVE /PILL BUFFER 
OLUCKA 
SLUGKASIL 
-Ss/7 

JMo J UNTST 
JM> ] UPBLK 


4/60 TO NORMAL TEST 
/USE THIS CALL 


fROUTENE / 
/PUNCH ANY READ CHECK BLOCK OF CHANNEL 7 PUNCHES 


PaT7/s 


/ 
PiTid 
bea FLOC /i@6 TO BLOCK A 
BLUCKA 

LO” 

MUVE /PILL BUFFER 
SLUUCKA 
SLUCKAe) 
“5/7 

JM> | UNTST 
JM> [| UPGLK 


/GO0 TO NORMAL TEST 
/USt THIS CALLe 


/ROUTINE 2 
/PUNCH ANU READ CHECK BLOUK OF CHANNEL & PUNCHES 


P4TqWe 


ie 

ose i ee Ge 
SETLOC 4200 TO BLOCK A 
SLUCKA 

ce 

MOVE /eILL BUFFER 

SL UGKA 
SLUCKAeL 
“5/7 

JM> 1 UNTST 
JM> I UPBLK 


#60 TO NURMAL TEST 
/USE THIS CALL. 


/ROUTINE Jb 
/PUNCH ANU ReAv CHECK SLOCK OF SLIVING 1 PATTERN 


Piliis 


Ld 


ee as a 


MUVeE /PILL BURFER WITH 
oo Oe a” oa /oLIDING 4 PATTERN 
SL WUK A 

=-10 

MUVE 

OLUUKA 
SLUCKA416 
-50¢ 

JM> |] UNTST 
~M> | UPSLK 


440 TO NORMAL TEST 
/uUSte THIS CALL 





a en ony 


co ir A A ed tereter teller caneheelte do bth! 





PEON Ta ae Te re 





$316 
$$1? 
$3$2u 
S824 
$322 
S323 
$324 
S425 
5326 
3527 
$558 
S554 


5532 
5353 
5554 
$355 
5356 
$337 
3540 
35441 
3542 
3343 
3544 
3345 
5546 
$347 


S598 
$591 
3532 
5$58 
3594 
3355 
5526 
$4397 
$560 
$564 
5562 
5308 
3504 
$565 


WejLe 
SSSe 
4452 
ede 
417> 
7764 
4455 
417> 
4219 
7440 
4504 
490 


O1s 
5550 
4446 
417> 
W377 
44406 
6176 
QBOw 
4455 
4172 
4177 
74@e 
4504 
4>Qu 


wW14 
34Qu 
4446 
4175 
VS7+/ 
4446 
44,70 
Qe yw 
4452 
“172 
447/ 
/avc 
234 
4 ogl 








6/26/68 14347,/ PAGE 42 


“ROUTINE de 
/PUNCR ANU READ CHECK BLOUK OF SLIDING & PATTERN, 


P1712. 


Le 

age a Oe 

MOVE /rILL BUFFER WITH 
SL 102 /sLIDOING @ PATTERN 
BLUCK A 

“20 

MOVE 

BLUULKA 

BLUGCKA16 

“$02 

JM> J] UNTST 740 TO NORMAL TEST 
JM> ] UPBLK /USt& THIS CALL 


“ROUTINE Lo 
/PUNCH ANU REAU CHECK BLOCK OF ONES AND 2EROES, 


PiTis,s 


13 

PLT14 

SETLOO /$7/ TO BLOCK A 
BLUCKA 

asf 

2h TLOC /@ TO BLOCKAF]) 
SLUCKAS]L 

0 
MOVE /pPILl BUFFER 
BLUUKA 

SLUCKA*+2 

3/06 

JM> | UNTST 7/60 TO NORMAL TEST 
JM> [ UPSLK “7USt THIS UALL 


/ROUTENE 14 
7PUNCH ANU READ CHECK BLOCK OF ONES AND ZEROES, RANDOM 
STALLS SETWEEN CHARACTERS PUNCHED, 


PiT14: 


14 

rP1T1> 

SE TLOC 4577 TO SLUCKA 
SLUUKA 

S// 

SE TLOC 46 T0 BLOcKa*l 
SLUCKA+I 

0 
MUVE /FILL BUFFER 
BLULKA 

Bp UbKAte 

“9/0 

JM> | UNTST /GO TO NURMAL TEST 
JM> 1 UPBLKR /USt THIS CALL 











FT TUETTT HT seme cumeteemewatinennnerneiesinnt® mew nian nn ee 





Outta Sutclahubcuee stomtthe A oH 1 Eli Cerra BN 


elo beth ash sibatt aete ie seo ay 


fod est nile drat pana oaeasabic tht tT hy 


Ayn sare web 





3420 
$424 
$422 
3423 
5424 
$425 
3426 
$427 
$450 
5431 
5432 
$433 
5434 
$4 Sd 
5436 
$4357 


9960 


Wt? 
$42 
4440 
W1li> 
417> 
44406 
eLi21 
7400 
45141 
4 >1¢ 
$212 
2412 
el2l 
peil 
45204 
45 90 


WLC 
7777 
4446 
@141> 
41792 
4440 
wield 
740 
aoii 
451¢ 
o9419 
21492 
gece 
D233 
404 
4504 


an 
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#, 1774) 
/mUUTING Lo 


PUNCH ANU READ GHECK GLOUK OF BINARY COUNT PATTERN 


Pi{Tid, 13 
PiT1l6o 
DE TLOC 
TEMP YU 
phLUCKA 
SE 1LO¢C 
ULTRA 
“400 
JM> I] INPATT 
PiTi5A, JMd J GETPT 
WOA J] TEMPU 
1S¢ TEMPU 
Jose CTRA 
JMP PIT1DA 
JMS [| UNTST 
JMS J] UPBLK 
/ROUTINE 10 


/OLUCK A AVOR TQ TEMPYU 


7296 TO cTRa 


/ZINITIALTZ& 8, PATTERN 
/PILL BUPFER WITH 
/BINARY COUNT PATTERN 


760 TO NORMAL TEST 
AUSt THIS CALL, 


/PUNCH ANY EAD CHECK BLOCK OF BINARY COUNT PATTERN 
7RANDUM STALLS BETWEEN CHARACTERS PUNCHED, 


P1T162 ae 
47747 
DRTLOC 
TEMPU 
SLUCKA 
SBETLOC 
CTmaA 
“40 
JM> JT INPATT 
PiTi6GA, IJMS [| GLTPT 
WUOA | TEMPU 
fort TEMPU 
iSs# CTRA 
JMY PLTLOA 
JMS [| UNTST 
JMS ] UPBLKR 





/BLOCK A ADOUR TO TEMPY 


/7226 TQ CTRA 


JINITIALIZ& B, PATTERN 
/PILL BUFFER WITH 
/BINARY COUNT PATTERN 


/60 TO NURMAL TEST 
USt THIS CALL 














34428 
3441 
3442 
3443 
3446 
3445 
3446 


3447 
3490 
3451 
34392 
3453 
3454 
3455 
5456 
3457 
3400 
3464 
$462 
3463 
3404 
3465 
3466 
3467 
3472 
$471 


$472 
4473 
3474 
4475 
3476 
34/7 
soue 
Sart 
S22 
3083 
S204 
gou05 
S2uG6 
$907 
Sone 





4446 
VIE 
344/ 
4450 
2126 
5646 
bese 


CeO 
S497 ¢ 
4446 
;4i2i 
623u 
683¢ 
6450 
214 
603i 
525/ 
O0Si1 
260 
ca2i 
2264 
54464 
7o¢¢ 
6’ $1 
226/ 
926/ 


Jd21 
$211 
6¢S¢ 
4450 
zgiol 
60S) 
5274 
6 56 
643 g0 
Gudd 
23d0 
z199 
7 S46 
a27/ 
54964 
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/PROGRAM 2, KEYBOARD TEST 
PRL2Z, SeETLOC /SET KSTART TO INITIAL 
KSTART ROUTINE AUQRESS 
Pelé 
JM> | XTYPST /PRINT 
KM>u1 
JMP YT #1 
SROET 
/ROUTINE @ 
JOLEAR AY AND FLAG (KCC), WAIT FOR FLAG TO SET, WITH FLAG SET. SKIP 
JON FLAG yo TIMES, KSF SHOULD SKIP EVERY TIME. 


P2Té, c 
PeTi 
SETLOC f71000 TO CTRA 
UTRA 
“1/30 
AGU /CLEAR AC AND FLAG 
JMS |] XTYPST 
KMob2 
ASF /SREADY? 
UMP yay JWALT 
ADP /JREADY, SKIP ON FLAG 
JMrP Pee /NO SKIP, ERROR 
lot CTRA /ALL DONE? 
yMP as /NO« REPEAT 
JMrP J] CHAIN /YES, CHAIN 
P2E@; HLT CLA /KSF FAILURE 
ASF /SCOPE LOQP 
JMP ,=l /SKIPS ON FLAG 
JMP ,s2 /CONTINUOQUSLY 


ROUTINE Le 

/ECHO TEST CHARACTER RECEIVED FROM KEYHOARD IS TYPED, THE 
/CHARACTER TYPEU SHOULU MATUH CHARACTER KEYEO, RUGOUT CHARCTER 
ZENUS ROUTINE, 


Palys 1 
Pdéle 
AUG /ZGLEAR AG ANU FLAG 
JMS [| XTYPST 
AM>dvus 
P2TLA, ‘oF /READY? 
JMP ,ol JWAILT 
KAO /READ CHARACTER 
its SPRINT JIT 
Tor /PRINTER READY? 
JMP el JNO. WAIT 
Tha MRBUUT 
>A 41S JT RUBOUT? 
JMP PeTiad “NO 
wMP {| CRAIN /Y¥tS. CHAIN 


© 








pores nite aac 


1d een saanenektaall adi foe, Botte nese ee ls bese an lal Luabtantache, oun steerer gh 


SPIT np PT manelwewcennbincinnntdamittteleltadt il Ub A 





S214 
S312 
$243 
5214 
$545 
§216 
$547 
392Y¥ 
gs 202i 
3522 
3928 
5924 
3525 
3>26 
3527 
3535¢ 
$354 
5252 
$9583 
35934 
3555 
3556 


0dde 
777 
ove 
445 
2234 
445 
Zi7 
6051 
5820 
6836 
53396 
4526 
$330 
ec5/ 
4450 
2292 
1556 
L130 
764 
5$2u 
5444 
U0 2 
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ZROUTINE <6 


JOLTAL cUULVALENT TEST, 


THE OCTAL tQUIVALENT OF ANY 


/CHARACTER KEYEU JTS PRINTED, RUBOUT ENUS ROUTINE, 


Petes é 
4/7 
KUL 
JM> | XTYPST 
AMOG4 
wM> J yTyPST 
KMSLSA 
P2TeAs KSF 
wMP ,ah 
ARS 
VGA P2TEew 
JM> ] UASCCN 
PéTew 
UCTEQY 
JMS& ] XTYPST 
KMebo 
TAU PeTew 
TAU MRBUUT 
DZA CLA 
JMP PETCA 
JMP ] CHAIN 
P2T2ws rs) 





/CLEAR AL AND FLAG 
/PRINT TITLE AND 
/INSTRUCTION 


/PLAG 1? 

/NO.w WAIT 

/YES, READ KEYBOARD 
/STORE CHARACTER 
/CONVERT CHARACTER 
/TO PRINTABLE OCTAL, 


PRINT CHARACTER 


/WAd [T-A RUBOUT? 
7NO, 
/YED, CHAIN 














3257 
S242 
3541 
32342 
3248 
3344 
$545 
3546 
3347 
$556 
S951 
3552 
$9598 
3554 
3555 
3296 
3957 
3560 
S564 
$3962 
3963 
3504 
$565 
3566 
3567 
3278 
So 74 
3972 
3973 
$574 
3975 
3576 
$577 
godd 
Sou) 
3662 
$ou3 
3Ou4 
b649 
3606 
Os 
SOL 
$637 
S642 
$643 
3644 
3645 





4446 
weve 
1144 
4440 
£130 
725¢€ 
445/ 
§ 446 
Bveu 
$255 
575¢ 
O23e 
BY Aw 
S360 
4461 
471 
45¢> 
Qegl 
326> 
4461 
1716 
4902 
WU2e 
S27¢€ 
4461 
471° 
4592 
BeD9 
$277 
$461 
4724 
4>Q> 
We g4 
5604 
4461 
1724 
&£9y> 
wt 2 
roa speak 
4461 
a/2/ 
49 g2 
Wvyo 
360456 
6461 
a7 o< 
&>3y? 





APROGRAM Se 


PRGS, 


pasties 


P3rtis 


P3r2s 


PS3TSs 


P3T4, 


PSTD, 


PSTO, 


Se PLUC 
Z 
INToVE 
ye PLOY 
SLAUNT 
“2E0 
JM>d |] 
SeTLOC 
KOTART 
PST? 
JMP  ] 
DRotT 
7) 

PST 
JM> ] 
rs 

JMD | 
i 

PSTé 
wM> | 
) 

JM> J 
ra 

PoTo 
JM> | 
re 

JM>D ] 
©) 

PST4 
JM> | 
J 

JM> | 
4 

rPSTO 
JIM> | 
4 

JM> | 
> 

RP STO 
JM> | 
p 
JMO] 
fe) 

POT? 
JM> J 
> 

JM> J 
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COMBINEY READER, 


VoTeF 


2*l 


UF BF S 


UUNTST 


UF BFS 


UONTST 


UF BFS 


UCNTST 


UP oF S 


VONTST 


Ur oF S 


UCNTST 


UF BFS 


UUNTST 


Ur ors 


UUNTST 





PRINTER, PUNCH Test, 


/SET INTERRUPT SERVICE 


JADURES 


8S TO INTSVe 


SET DATA BLOCK LENUTH 
/TO0 alog¢ 


/SET UP BUFFER ARLA 
/ASET KSTART TO INITIAL 
ROUTINE AUDRESS 


/UATA? 


SUATAS 


SUATA 


JUATAS 


JUATAS 


/UATAS 


/UATAS 


/START PROGRAM 


ABC 


UEP 


GH] 


JKL 


MNQ 


PUR 


STU 


coy (Me bet echatns sitet eget iyo aA ok oS wad AH 2 anther he ee neal A a edn npr NY 





$616 
3617 
5622 
56214 
S622 
S028 
$424 
$625 
3626 
3627 
$650 
35651 
3692 
S655 
5634 
S659 
3656 
$6957 
5640 
S64) 
3642 
3643 
3644 
$645 
3646 
3647 
$690 
S694 
3652 
$453 
3654 
3655 
3696 
3627 
3662 
5664 
3662 
3668 
3664 
$665 
$406 
$667 
3670 
$O74 
$672 


gWe/ 
3625 
4461 
173° 
4592 
wi" 
5630 
4461 
1740 
42Q> 
GU11 
$6352 
4461 
4748 
42Y2 
VOLE 
5642 
44961 
17406 
4 2Y> 
bis 
SO47/ 
4461 
1751 
go¥> 
wei4 
$654 
446] 
1754 
49g>2 
Qwi> 
S661 
4461 
175/ 
42092 
YVeLTO 
5066 
4961 
1762 
45g> 
O04/ 
SOvu 
4461 
1762 
q>g> 


= 


P3T7, 


PS$i]Us 


PSTide 


PS$T12) 


P3T1S>5 


PST14:2 


PS$T15, 


P3T16, 


PSTi7», 


PST1Y 
JMD | 


Jus 
ld 

PST31 
JM> | 


JM> | 
rae 
PST12 
JM> | 
UNG 
JM> | 
12 
POTIS 
JM> | 
POUR 
JIMo J 
3 
PSTS 
JMo | 
DEYN 
JM> | 
i4 
P$T1»> 
JM> | 
L24) 
Jmo 


PSTIS 
JM> |] 
vwet4 
IMD | 
Lo 
rPST1/ 
JM> | 
L24/ 
JM> J 
17 
Poldy 
JM> J 
UE%e 
JM> | 
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UP BFS 


UONTST 


Ur br S 


VUENTST 


UF BF S 


UUNTST 


UF BF S 


UONTST 


UF BFS 


UONTST 


Ur oF S 


UCNTST 


UF BF S 


UUNTST 


Ur BFS 


UONTST 


UF BFS 


UONTST 


SUATAS 


/UATAS 


/VATAS 


JWATAS 


DATA? 


/UWATAS 


JUATAS 


/UATA: 


/SUATAS 


Ytu 


123 


426 


789 


1" # 


b%8 


'() 


PAG 47 














eM AERE ELA MM AL al at IU EIS 








4¥02 
401 
402 
44g8 
4004 


4205 
4006 
4007 
4410 
4011 
4012 
4913 
4014 
4215 
4616 
4417 
4029 
4021 
4022 
4223 
4024 
4025 
4026 
4027 
40520 
4d$14 
4632 
4055 
4054 
4055 
4W36 
4u$7 
4L4Q 
4yqt 
444 
4yG& $ 
4ijadg 
4245 
446 
4447 
42 
454 
40>e2 
4053 
4nd 





400" 
BYow 
40> 
44961 


4202 


* 
P3T2Q; 


PST21, 


P3T22s 


P3T2ss 


PST249) 


P3125. 


PS$TZ6) 


P3T27. 


PSTSOe 


PSTS1> 


6 20774 


Zé 

PST?21 
JIMS | 
LEZa> 
JMa: 4 


21 
PSTée 
AM> I 
Lele 
JM> J 
as 
rPST23 
JM>a ] 
Léfso 
JM> | 
rae) 
PST?4 
JMO | 
Ube" 
JMS | 
24 
PST2> 
JM> | 
ORT) 
JM> | 


POTc6 
JM> | 
JMO I 
26 

PsTa7 
YM I 
JMS | 
é/ 

PST Sd 
JMO |] 
JM J 
Siu 

PoTol 
JMo I 
JMS I 


P$1$2 
JMS | 
JMS J 
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UP BFS 


UUNTST 


UP BFS 


UONTST 


Ur bF S 


UUNTST 


Ub Bh S 
UCNTST 
UF BFS 


UCNTST 


UF BALL 
ULNTST 


UF W354 
UONTST 


UP WSS 
UCNTST 


Ur wso4 
UONTST 


URW SOS 
UUNTST 


JUATA? 


JUATAS 


SUATAE 


AyATA$ 


JUATA; 


/UATAS 


JUATA 


/OATA; 


JUQATAS 


JUATAS 


af 


on 
we 
Pas 


63 
Vv 
oa) 


@LN 


PAGt 48 


3? AND LEFT ARROW 


ALL PRINTABLE ASCII 


ASRSS PRINTER WORST 
/PATTERN 


ASRSS PRINTER WORST 
/PATTERN WITR INTERSPERSED 


ASRSS PRINTER WORST 
/PATTERN 


ASRSS PRINTER WORST 
/PATTERN WITH INTERSPERSED 


CASE 


CASE 
BLANKS 


CASE 


CASE 
BLANKS 
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4095 03e PS3TS2: Se 
456 777/ ‘dtl 
4307 4446 SeTLOC /UVATAL ONE'S AND ZEROES 
4302 4177 SLUUKIL 
4061 8S7/ S// 
4362 4440 Se TLOC 
463 4200 SLUCKI +1 
4464 90g 0 
40605 4455 MOVE 
43606 417/ BLUCKL 
4367 4281 OLUCKL+e2 
4070 7672 7106 
4974 44592 MOVe 
4072 417/ BLUUCKIL 
4873 4511 DLULCKe 
4074 7670 “ll 
4075 45995 JM | UUNTST 
/ 
/PROGRAM 4, PRINT LINES WITH DATA IN PTEMP AND PTEMPL. NO DELAY, 
4376 7200 PRG4, uLA 
4u77  $Wes WEA DELAYM /@ TO DELAYM 
4128 445/ YM> J USTHF 
4121 4466 JM> J] UF STMP /PFILL BUFFER WITH DATA 
44”v2 4456 JM> | UTYPE /TYPE LINE 
4123 550¢ JMP ,-l /REPEAT 
/ 
/PROGRKAM De PRINT LINES WITH DATA IN PTEMP AND PTEMP1, FIXEU RANDOM DELAY 
4104 44659 PRLD, JM> |] UPeTMpP /PILL BUFFER WITH DATA, 
4125 445/ JM> [| USTOF 
4126 445¢ JMS J] DLYCNT /GENERATE DELAY COUNT, 
41407 4456 JM> T UTYPE /TYPE LINE 
4141@ 5356 JMP 432 /REPEAT 
/PROGRAM ©, PUNCH AND READ CHECK DATA BLOCKS 
/aiTH JATA IN PTEMP AND PTEMP,, NO DELAY 
i 44141 4446 PRG, SETLOU ZSET INTERRUPT SERVICE 
i 4112 2062 ¢ /ZADWRESS TO INTSVC 
: 4413 41144 INTSVE 
‘ 4414 44406 >EILOC /JasET sLOCK LENGTH TQ 
: $115 1% SLAUNT fn-296 
‘| 41416 740” -400 
i 4117 4450 “OVE /PILL BUFFER WITHR DATA 
: 41423 vd21 ~TeEMP 7IN PTEMP ANU PTEMPL 
: 41421 4172 SLUCKA 
j 4422 7770 -¢ 
: #123 4450 MOVE 
i 6124 4617> DLUUKA 
i 4125 41i7/ BEVUK Ate 
| 4126 740c ~5/6 
i 4127 4>og/ JMS ] USTST f/60 TO SPECIAL TEST SEQUENCE 
e152 4b YM> ] UPDLK /CLSE TRIS CALL, 





cen a ee ge A omen, Aint aly ilk anda NL a ee hk, a Rae ahah ie a 
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/PROGRKAM 7, PUNUM AND READ CHECK DATA BLOCKS wITH DATA 
JUN PIEMP gpNQ PTEMPL) RANDOM STALLS BETWEEN CHaRS PUNCHED 


41534 44406 PROT, SEPeOC /SET INTERRUPT SERVICE 
41s2 wede rd /ADURESS TO INTSVC 

41453 1144 INTSVE 

4154 4446 Su rLIG /SET BLOCK LENGTH TO 

41465 wi3v OL AUNT {7236 

4136 7490 “4ud 

4137 4452 MOVE JeJLL BUFFER WITH DATA IN 
41448 vWde2l -TeMP /PT&EMP AND PTEMPL 

4144 $1792 HLUCKA 

41442 7776 ball -4 

4143 4452 MOVE 

4144 4172 DLUUKA 

4145 417/ dLUCKAe? 

4146 749e “9/6 

4147 4507 JMS | USTST /G0 TO SPECIAL TEST SEQUENCE 
4150 4>501 JM> ] UPBLKR /USE THIS CALL: 


/PROGRAM 10. PUNCH AND READ CHECK BLOCKS OF BINARY 
/COUNT PATTERN. RANDOM STALLS BETWEEN CHARACTERS PUNCHED 


4451 4446 PRGIDs SeTLUC /SET INTERRUPT SERVICE 
4152 vJbGe é /ADURESS TO INTSVCU 

4453 1144 INTSVE 

4154 4446 Se TLOC /SET BLOCK LENGTH TO 
4155 #13 BSLAUNT /°236 

44>6 740 “4d¢ 

4157 4446 Se PEOU 

4160 wlio fEMPy 

4164 41792 SLUULKA 

4162 4446 SETLOYU 

4163 121 uTRa 

44104 7490 -400 

4165 4511 | yM> 1 INPATT /rILL BUFFER WITH BINARY 
4166 4>1¢ | PRGA, YMd | GeTPT /COUNT PATTERN 

4467 $2142 WOR J] TEMPU 

4472 e112 1SZ TeMPuU 

41471 eiel lor CTRA 

4472 5566 JMP PRGOILEA 

4173 4>¢/ JMS ] USTST 740 TO SPECIAL TEST SELQUENCE 
41474 4 521 JM> ] UPELKR /USe THIS CALL 














OD 
a 


Sd We 


AO * oO 


to 
¥ 
’ 6/26/68 14:47,28 PAGE 51 
ae / 
44/2 wey? BLOUKA, 219 JOR 
$176 welic gle /LF 
41/7 weg SsLUCKis wo 
4$0/ *oLOCKL+1i¢0 
4$u7 wWwet1? BLOCK&, e192 /UR 
4$10 dele gic ik 
: 4311 wvkQu BLOCKéd, © 
46421 #oLOCK2el1li 
4424 21° BLOCKU, ¢19 /GR 
4422 wv212 él¢ /UF 
4279 #BLOCKAS400 
4975 dgvye OstkKy ¥) 
17> H#QoLK e+ 4ge 
Rs) 


RE ARK NU LRRURDS 





eT lalate ge tn test sea a” Basal al 21 POF ition hte rt eel UTES tht cheney etd ay 


at ogds tare 


alt cod 


acre ipnte tire ecersd! Lilli + 2 LAE 





wee aoepeen eter yh aang 


POA Sr reranece ataneemnnectme tae mete 








Tao7 ere 





ae 
4 ‘ 








haus 


